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Introduction 


Originally developed for execution on GDC coiaputational equipment, FLEXSTAB 
has recently been converted to the IBM360 by Computer Sciences Corporation. 
Detailed instructions for installing, validating, and operating the IBM 
version of FLEXSTAB are presented in this report. At the time of installation, 
FLEXSTAB programs are read from libraries on magnetic tape and stored within 
the user's IBM computing hardware. Subsequent program validation requires 
execution of FLEXSTAB with a series of demonstration cases. Both input cards 
and output listings for each demonstration case are provided. Supplemental 
materials contained within the Appendices define Job Control Language (JCL) 
sequences, describe the CUC to IBM software conversion, detail IBM FLEXSTAB 
Input/Output subprograms, and outline Interprogram data flow. 

Concepts and terminology within this report presume knowledge of: 

1. OS Job Control Language; both generally and specifically for FORTRAN 
applications. 

2. OS Utilities; specifically lEHMOVE and lEBFTPCH. 

3. OS Linkage Editor. 

Minimum IBM 360 hardware requirements for successful execution of FLEXSTAB 
include : 

1. Model 75 or larger; a smaller model will generally require excessive 
execution times for a realistic airframe analysis. 

2. 408K storage partition. 

3. Up to 4.6 megabytes of disk storage for scratch use during execution. 

4. Two magnetic tape drives. 

5. One additional tape drive is required if plots are generated. 


FLEXSTAB ON THE IBM 360 


FLEXSTAB Delivery Packafie 

The FLEXSTAB program package has been converted for use on the IBM 360 from a 
GDC version. It is delivered on two labeled magnetic tapes as a group of un- 
loaded partitioned data sets (PDS) and several ancillary sequential data sets. 
Table 1 details the contents of reels FLX360 and FLX361, the delivery tapes. 

The items on these tapes are grouped as follows: 

1. Code; both source and object code are provided (reel FLX360, files 1-24), 

2. Job Control Language decks for link editing and executing the FLEXSTAB 
programs, (reel FLX360, file 26), 


3. Validation materials consisting of the inputs and outputs for a standard 
set of demonstration cases, viz.. 


a. card- image input decks (reel FLX360, file 25), 

b. structural matrix inputs, represented by several unformatted data 
sets (reel FLX360, files 27-31), and, 

c. printer output listings (reel FLX361, files 1-32). 


FLEXSTAB Code 


Files 1-10 of reel FLX360 contain source code for the 10 primary FLEXSTAB 
programs. File 11, DSM=PL0TS, contains source code for the four independent 
plot programs . File 12 contains source code for a library of various common 
subpiograms. In total there are 583 members in these partitioned data sets. 
Files 13-24 of reel FLX360 contain object code for the respective source code 
files 1-12, eliminating the requirement to compile or assemble each source 
memb er . 

Three subprograms are coded in assembler language, the remainder in FORTRAN. 
Seven frequently used FORTRAN programs were compiled with the level 21.7 IBM 
FORTRAN H compiler using option 2; the remainder of the FORTRAN subprograms 
were compiled with the level 21 IBM FORTRAN G compiler. Table 2 itemizes the 
ten exceptional subprograms and gives the location by source library and 
member name. Note that the subprogram name and member name may differ. 


Job Control Language Decks 

Job Control Language Decks for link editing and executing the various FLEXSTAB 
programs are provided in a single sequential file, viz., file 26 (DSN=JCLDECKS) 
of reel FLX360, Each deck begins with a prototype job card to assist in separ- 
ation. The link edit decks are listed in Appendix I; the execution decks are 
listed in Appendix II. 

The link edit and execution decks are provided as example jobs that contain 
all essential statements. Each deck should be examined and edited to suit 
local requirements . 
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TABLE 1 


Contents of FLEXSTAB Delivery Tapes (IBM 360) 
Density is 800 bpi 


Tape 

0L=SER) 

File 

No. 

Tape"Unloadcd' 

LRECL/BLKSIZE 

DSNAFIE 

DSORG 

(PDS/Seq) 

//Members 
(If PDS) 

Disk(3330) Space 
(Trks-Dir Elks) 

Disk 

LRECL/BLKSIZE 

?LX360 

1 

80/800 (FB) 

GD 

PDS 

36 

52-3 

80/2480 


2 

II 

AIC 

If 

54 

76-4 

II 


3 

II 

ISIC 

It 

56 

77-4 

II 


4 

II 

NM 

It 

27 

21-3 

II 


5 

II 

ESIC 

II 

35 

36-3 

II 


6 


SDSS 

It 

162 

307-9 

II 


7 

II 

TH 

II 

47 

34-4 

It 


8 

" 

ALDS 

II 

11 

10-2 

II 


9 

IT 

SLDS 

ft 

6 

13-2 

M 


10 

It 

CAIC 

II 

4 

5-1 

II 


11 

It 

PLOTS 

II 

37 

32-3 

It 


12 

It 

ALIE 

It 

108 

80-7 

M 


13 

80/800 (FB) 

GDOBJ 

PDS 

36 

20-3 

80/2480 


14 

It 

AICOBJ 

II 

54 

25-4 

It 


15 

II 

ISICOBJ 

fl 

56 

32-4 

II 


16 

II 

NMOBJ 

If 

27 

10-3 

II 


17 

It 

ESICOBJ 

It 

35 

18-3 

II 


18 

II 

SDSSOBJ 

It 

162 

132-9 

M 


19 

It 

THOBJ 

it 

47 

16-4 

II 


20 

It 

ALDSOBJ 

It 

11 

6-2 

II 


21 

II 

SLDSOBJ 

ft 

6 

6-2 

It 


22 

II 

CAICOBJ 

ft 

4 

3-1 

It 


23 

II 

PLOTSOBJ 

II 

37 

15-3 

II 


24 

II 

ALIBOBJ 

It 

108 

35-7 

It 


25 

80/800 (FB) 

DEMOPROB 

PDS 

38 

26-3 

80/2480 
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TABLE 1 (Continued) 


Tape 

CVOL-SER) 

File 

No. 

Tape 

lrecl/blksize 

DSNAME 

DSORG 

(PDS/SEQ) 

RECFM 

#Blocks 

(Tape) 

//Records 

Approximati 

FLX360 

26 

80/800 

JCLDECKS 

Seq 

FB 

10 

950 


27 

7996/8000 

NASTAP.DARTl.EA 

Seq 

VBS 

1 

- 


28 

tt 

NASTAP.SST.EAl 

It 

ti 

31 

- 


29 

11 

NASTAP.SST.E2 

tt 

tt 

- -2 

- 


30 

It 

NASTAP.SST.E3 

tt 

It 

1 

- 


31 

M 

NASTAP.SST.E4 

11 

tt 

1 

— 

FLX361 

1 

133/7980 

PRINT. DARTl.GD 

Seq 

FBA 

10 

600 


2 

It 

PRINT. DARTl.AIG 

tt 

It 

6 

360 


3 

tt 

PRINT. DARTl.ISIC 

It 

It 

31 

1860 


4 

tt 

PRINT. DARTl.NM 

tt 

!l 

8 

480 


5 

It 

PRINT.DART1.SDSS5 

It 

It 

39 

2340 


6 

It 

PRINT. DART1.SDSS6 

It 

It 

40 

2400 


7 

tt 

PRINT. DARTl.TH 

It 

tt 

9 

540 


8 

tt 

PRINT IdARTI.SLDS 

It 

It 

6 

360 


9 

11 

PRINT. DARTl.ESIC 

It 

It 

8 

480 


10 

It 

PRINT. DARTI.SDSSIO 

tt 

It 

32 

1920 


11 

tt 

PRINT. DARTl.SDSSll 

M 

M 

33 

1980 


12 

tt 

PRINT. DARTl. AIDS 

It 

It 

6 

360 


13 

It 

PRINT. DART 2. GD 

It 

tt 

17 

1020 


14 

tt 

PRINT. DART2.AIC 

II 

It 

6 

360 


15 

It 

PRINT. DART 2. SDSS 

It 

It 

32 

1920 


16 

II 

PRINT. B707. GDI 

It 

tt 

44 

2640 


17 

It 

PRINT, B707.AIC 

tt 

It 

6 

360 


18 

tt 

PRINT. B707.ISIC 

It 

It 

99 

5940 


19 

II 

PRINT. B7 07. NM 

It 

It 

15 

900 


20 

11 

PRINT, B707.SDSS5 

11 

11 

154 

9240 


21 

tt 

PRINT. B707.TH 

It 

It 

61 

3660 


22, 

tt 

PRINT. B707.SLDS 

it 

tt 

15 

900 


23 

ti 

PRINT, B7 07. GD8 

11 

It 

44 

2640 


24 

11 

PRINT. B707.SDSS9 

11 

ti 

59 

3540 


TABLE 1 (Continued) 


Tape 

(VOL-SEP.) 

File 

No. 

Tape 

LRECL/BLKSIZE 

DSN7HE 

DSORG 

(PDS/SEQ) 

REmi 

■VElocks 

CTape) 

/^Records 
Approximat e 

FLX361 

25 

133/7980 

PRINT. S ST. GD 

Seq 

FBA 

45 

2700 


26 

It 

PRINT. SST.AIC 

II 

II 

7 

420 


27 

II 

PRINT. SST.ESIC 

II 

II 

20 

1200 


28 

II 

PRINT. SST.SDSS4 

II 

11 

51 

3060 


29 

M 

PRINT. SST,S))SS5 

II 

M 

88 

5280 


30 

M 

PRINT. SST. AIDS 

II 

M 

11 

660 


31 

tl 

PRINT. SST.CAIC 

It 

n 

5 

300 


32 

II 

PRINT. SST. SDSS8 

II 

M 

88 

5280 


TABLE 2 


FLEXSTAB Object Code Not Created 
by FORTRAN G Compiler 


Subprogram 
or Control 
Section 

Source Code 
Location 
PDS (Member) 

Language 

Processor 

CMCS 

TH(CMCS) 

FORTRAN H,0PT=2 

GINO 

ALIB (LOCATE) 

FORTRAN H,0PT=2 

MACHFUNC 

ALIB(MCHFNS ) 

ASSEMBLER 

BLOCK 

ALIB (RDBLK) 

ASSEMBLER 

STRING 

ALIB (READS) 

ASSEMBLER 

RECVEC 

ALIB (RECVEC) 

FORTRAN H,OPT=2 

SQUEZE 

ALIB (SQUEZE) 

FORTRAN H,OPT=2 

VIP 

ALIB (VIP) 

FORTRAN H,OPT=2 

VLIN 

ALIB (VLIN) 

FORTRAN H,OPT=2 

ZAP 

ALIB (ZAP) 

FORTRAN H,0PT=2 
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Installation of FLEXSTAB Code 


To install FLEXSTAB code perform the following steps: 

1. Pre-allocate space for data set FLEXSTAB . LOADMODL . LIBRARY , which requires 
the equivalent of three hundred fifty tracks on a 3330 series disk. The 
space requirements for the individual members of this load module library 
are listed in Table 3. 

2. Load the 12 object partitioned data sets to a suitable direct access 
device (using lEHMOVE) . Space requirements are provided in Table 1. 

3. Catalog the FLEXSTAB. LOADMODL. LIBRARY and the 12 object data sets. If 
cataloging is not desired, UNIT and VOLUME parameters must be added to 
JCL referencing these data sets. 

4. Execute link edit jobs for the ten primary FLEXSTAB programs. (These are 
the first ten jobs listed in Appendix I.) Link editing the four FLEXSTAB 
plot programs requires a special procedure. Only one JCL deck is provided; 
it must be modified and used in turn for each plot program. Consult the 
JCL sample on page 1-14 of Appendix I for details regarding the modifi- 
cations for each plot program. In addition, successful link editing of 
the plot programs requires a library of CALCOMP routines. This library 
should be concatenated to the SYSLIB data set for either step LKPLOTSl 

or LKPL0TS2, depending on whether it is in object or load module form, 
respectively. 


5. Create and keep the FLEXSTAB 'COPY program load module using the JCL below. 
(The FLEXSTAB COPY program is used during FLEXSTAB executions for tape-to- 
disk and disk-to-tape copy operations. 


//SI EXEC PGM=IEWL,REGION=100K 
/,/SYSPRTMT DD SYS0UT = A 

//SVSLIP DO DSN=SYS1 .FORTLlBfDlSP=SHR 
//SYSUTl DD IINIT = SYSDA,SPACE=(TRK, (20» 10) ) 

//SYSLMDD DD nSN=FLEXSTAB . LOADMODL . L I RP aRY ( COPY )» D I SP=0LD 
//SYSLIN DD DSN=ALIB0BJ (COPYTAPE) »DISP=0LD 

Execution of FLEXSTAB Programs 


The JCL decks provided for execution of the FLEXSTAB programs contain all of the 
essential statements for FLEXSTAB runs. Note the following items when using 
or modifying this execution JCL. 


1. Data set GDTAPE is created by the CD program. Since GDTAPE is used by 
several other FLEXSTAB programs, it is cataloged by the GD execution JCL. 

2, To keep core requirements to the sizes quoted in Table 3, BUFN0=1 is 
specified mthin the DCB parameter of all FORTRAN DD statements. 


3, Many execution decks contain job steps to copy data between tape and disk. 
Volume information must be supplied for each tape involved. 
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TABLE 3 


CORE 

MEMORY AND DISK 

STORAGE REQUIREMENTS FOR 

FLEXSTAB LOAD MODULES 

Module Name 

Execution Core 
Requirement 

Execution Scratch Disk 
Req'mt.(3330 Tracks)* 

Load Module Disk Storage 
Required (3330 Tracks) 

GD 

296 K 

15 

27 

AIC 

386 K 

2310 

43 

ISIC 

366 K 

3820 

43 

NM 

252 K 

3520 

20 

ESIC 

312 K 

2010 

29 

SDSS 

408 K 

3220 

112 

TH 

382 K 

1020 

24 

AIDS 

226 K 

880 

17 

SLDS 

214 K 

1120 

20 

CAIC 

140 K 

1060 

15 


350 Total 


* Xf installation scmtcti disk, space is not plentiful^ module scratch, 

ments can be reduced by changing the supplied execution JCL. For al^ but the 
largest models, scratch space reductions of from 50% “ 80% will pnbably allow 
satisfactory runs. 


FLEXSTAB Validation Products 


The IBM version of FLEXSTAB has been executed with demonstration inputs from 
the DART I, DART II, Boeing 707-320B, and Boeing 2707-300PTCSST) cases. The 
inputs- and outputs for these runs are provided for validation purposes. Newly 
Installed IBM code can be executed with these inputs. The results can be 
compared with those provided. Table 4 lists the program, the input and the 
output for each validation run. Sections 3 and 4 of Reference 1 (FLEXSTAB 
1.02.00 Demonstration Cases and Results) describes the validation models 
thoroughly, indicates modeling and analysis options selected, and itemizes 
the unformatted inputs required for each run. Table 4 quotes CPU ti.mes for runs 
on an IBM 360 Model 91 to help estimate timing for other models. 


Card Image Inputs 

Card image inputs are provided in file 25 (DSN=DEM0PR0B) of reel FLX360. Since 
DEMOPROB is a PDS, it must be loaded onto disk prior to any validation runs. 
Each member of PDS DEMOPROB is an input deck for a particular model and program 
see Table 4. 

Columns 74-77 of each input card image contain a number identifying the card by 
type. These numbers correspond to the card and cardset numbers used in Ref. 2 
(FLEXSTAB User's Manual) to document input deck structure. Some cards in the 
decks provided are data deck comment cards : They are optional and no card or 

cardset number is given in Ref. 2. The digits 9999 appear in columns 74-77 of 
such cards . 


Structural Matrix Inputs 

Structural matrices are provided for runs of the ESIC and ALOADS programs. 
Table 4 correlates runs to structural matrix requirements by listing the file 
number on reel FLX360 for the matrix required. Table 5 lists the matrices by 
their file numbers, giving (1) the DSNAME as it appears in the label, (2) the 
FLEXSTAB name as it appears in the appendices of Ref. 2, and (3) a short 
description of the matrix. 


Printer Outputs 

The validation problem output files (files 1-32 of reel FLX361) can be printed 
as needed for comparison with local validation runs. 


TABLE 4 

FLEXSTAB Validation Cases 


Model 

(Airframe) 

DART I 
DART I 
DART I 
DART I 
DARV T 
DART 1 
DART I 
DART I 
DART I 
DART I 
DART I 
DART I 

DART II 
DART II 
DART II 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 

707-320B 


Member Name for Structural Matrix CPU Time Output Listing 

Card Image Input Input'’s),lf Used, by Model ‘31 by File Number 

(DSN=DEMO PRCii) File Numbc‘v(Rcel FLX360) Program (Seccnds) ( Reel FLX361)_ 


DKOl-01 

DKOl-02 

DKOl-03 

DKOl-04 

DKOl-05 

DKOl-06 

DKOl-07 

DKOl-08 

DKOl-09 27 

DKOl-10 

DKOl-11 

DKOl-12 27 

DK02-01 

DK02-02 

DK02-03 

DK03-01 

DK03-02 

DK03-03 

DK.03-04 

DK03-05 

DK03-06 

DK03-07 

DK03-08 

DK03-09 

DK03-10 

DK03-11 

DK03-12 

DK03-13 

IK03-14 


GD 

1 

1 

AlC 

6 

2 

ISIC 

11 

3 

NM 

6 

4 

SDSS 

10 

5 

SDSS 

14 

6 

TH 

3 

7 

SLOADS 

3 

8 

ESIC 

3 

9 

SDSS 

6 

10 

SDSS 

9 

11 

ALOADS 

2 

12 

GD 

2 

13 

AIC 

14 

14 

SDSS 

9 

15 

GD 

6 

16 

AIC 

626 

17 

ISIC 

830 

18 

NM 

130 

19 

SDSS 

571 

20 

TH 

85 

21 

SLOADS 

5 

22 

GD 

6 

23 

SDSS 

54 

24 

GDPLOT 

Not 

Supplied 

EAPLOT 

Not 

Supplied 

NMPLOT 

Not 

Supplied 

PDPLOT 

Not 

Supplied 

THPIOT 

Not 

Supplied 



TABLE 4 (Continued) 


Model 

(Airframe) 

Member Name for 
Card Image Input 
(DSN=DEM0 PROB) 

Structural Matrix 
Input by 

File Humber (Reel FLX360) 

Program 

CPU Time- 
Model 91 
(Seconds) 

Output Listing 
by File Number 
(Reel FLX361) 

SSI 

DK04-01 


GD 

6 

25 

SST 

DK04-02 

- 

AIC 

1311 

26 

SST 

DK04-03 

28,29,30,31 

ESIC 

234 

27 

SST 

DK04-04 

- 

SDSS 

705 

28 

SST 

DK04-05 

- 

SDSS 

1124 

29 

SST 

DK04-06 

28 

ALOADS 

5 

30 

SST 

DK04-07 

- 

CAIC 

117 

31 

SST 

DK04-08 

- 

SDSS 

1113 

32 

SST 

DK04-09 

- 

GDPLOT 

Not Supplied 
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TABLE 5 


Structural Matrices 


File No. 
FLX360) 

(Reel 

DSNAME 

FLEXSTAB 

NAME 

MATRIX DESCRIPTION 

27 

NASTAP.DARTl.EA 

(CAA)-S 

Clamped Flexibility Matrix 
for Dart 1 

28 

NASTAP.SST.EAl 

(CAA)-S 

Clamped Flexibility Matrix 
for the SST 

29 

NASTAP.SST.E2 

(PHI Al)-S 

Free Vibration Mode Shape 
Matrix for the SST 

30 

NASTAP.SST.E3 

(K 1)-S 

Generalized Stiffness Matr: 
for the SST 

31 

NASTAP.SST.E4 

(M 1)-S 

Generalized Mass Matrix 
for the SST 


Appendix I 


JOB CONTROL LANGUAGE (JCL) 
to Link Edit each 

FLEXSTAB load module 


Duplicates of this JCL are supplieJ on tape 
Volume FLX360 in Data Set JCLDECKS 


Link Edit JCL-GD 


//lnkogd job (ACCT,INF0) ,*name* »msglevel=(2,0) 


//lib 

// 

//SYSLIB 

// 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

INCLUDE 

CHANGE 

INCLUDE 


DD DSN=GDOBJ,DISP=GHR 
DD DSN=ALI0O8J»DISP=SHR 
DD DSN=GD0BJ,DISP=SHR 
DD DSN=ALIR0BJ»DISP=SHR 
DO UNIT=SYSOAtSPACE=(TRK. (30,?0) ) 
DD UNIT=SYSDA,SPACE=(TRK, 

DD * 

LIB (GD) 

LIB (MCHFNS* VERSON) 

FLUSH(EXIT) 

LIB(OATA) 


< 1 00,20 »5) ) ,DISP= ( .PASS) ,DSN=«,T (ALL) 


//LKGD2 EXEC PGM= lEWL ,PARM= • MAP ,L 1ST , OVLY .LET • ,REGI ON= 1 OOK 
//SYSPRINT DD SYSOUT=A 


//LIS 

//SYSLIB 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

OVERLAY 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

OVERLAY 

INSERT 

INSERT 

INSERT 

INSERT 


DD 
DD 
DD 
DD 
DD 

LIB(ALL) 


OSN=«.T,DISP= (OLD. DELETE) 
DSN=SYS1.F0RTLIB.DISP=SHR 
UNIT=SYSDA,SPACE=(TRK, (30.20) ) 
DlSP=OLD.DSN=FLEXSTAB.LOADMODL,LIBRARY (GD) 


/* 


GEOMTY. INITAL. MONITR.SLNBOD.INTBOD.T INROD. PCKGE.CEGAR 

0ODCP, BODCC.BODYZC.BPARA.BPTHO.CONTPP, PR INTB .FILES 

LOFTA.YINTA.LDDGPT.AOJUST.REDO 

data. I NTURP.BLOKER. MARI TE. page, STATUS. VCONTL 

GDS60 ,GDS55.GDS50,GDSFIT.GDSCNT,GDSORG.GDSTPI .GDSUSA.GOS3 

ftnloc.optfil 

GDP3.GDP2.GDP1 .GDP8.GOP9.GDP10.GDP1 1 .GDP 13 


Link Edit JCL-AIC 


//LNKOATC job (ACCT»INF0) , ?NAME« 9MSGLEVEL=(2»0) 
//LKAICI exec PGM=IEWL*PARM=‘N0MAP»LIST,LET» ,region=iook 
//SYSPRINT DO SYSOUT=A 


//LIB 

// 

//SYSLIR 

// 

//SYSUTl 

//syslmod 

//syslin 

INCLUDE 

INCLUDE 


DD DSN=AIC0BJ»DISP=SHR 
DD 0SN=ALIB08J9DISP=SHR 
DD D5N=AIC0BJ»DISP=SHR 
DD DSN=ALIBOBJ»DIRP=SHR 
DD UNIT=SYSDA9SPACF=(TRK» <30??0) ) 

OD UNIT = SYSDA9SPACE=(TRK5 U00,?0»5) ) 9DISP= ( tPASS) »DSN=S.T(ALL) 
DD ^ 

LIB(AIC) 

LIB (BLKOTA»MCHFNS» VERSON) 


//LKAIC? EXEC 
//SYSPRINT DD 


PGM=IEWL»PARM=«MAP9LIST»0VLY» 9REGION=100K 
SYSOUT=A 


//LIB DD 
//SYSLI8 DD 
//SYSUTl DD 
//SYSLMOD DD 
//SYSLIN DD 

INCLUDE LIBULL) 
OVERLAY A 


DSN=S.T,DISP= (OLD»OELETE) 
D5N:=SYS1.F0RTLIB9DISP=SHR 
UNIT=SYSDA,SPACE=(TRK» (309?0) ) 
DISP=OLO»OSN=FLEXSTAB.LOADMODL,LIBRARY{ AlC) 
«• 


INSERT 

OVERLAY 

INSERT 

overlay 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

overlay 

INSERT 

overlay 

INSERT 

OVERLAY 

INSERT 

OVERLAY 

INSERT 

INSERT 

OVERLAY 

INSERT 

INSERT 

Overlay 

INSERT 

INSERT 

INSERT 


VCONTL 9 MARITE 9 BLOKER 9 VCNTL 

A 

CPTGEN 

A 

SETUP 9 A ICGEN 9 NERFFR 9 ARCTAN 9 IF ANEL 9 COMPUT 9REGNA 
VI 9WI»SUPINT»REGNAA9VII 9 WII 9 I 1 ITER 9 ELINE 
R0TATE9SUBINT9VB»VBAR9-W9WBAR»LPREP,LSING 
SPANEL 9 SUBSRC 9 VEL 9 ASINH 9 COMP 9 QUADI 
FFLAG 9 AG 0 I 9CP9EDGES9LINE»EX»C0MV9VEL0C 
A 

TRNOVR 

A 

CAMTHK 

B 

CA^^^'ER 9 EXPAND 
B 

THICK 

TMABT 

A 

FIELD 9 MATRIX 9 shrink, STUFF 

SAIF 

A 

UNSTDY 9 WRTROW 9 OELTAA 
TMAD,TMDA 
TMOl 




1-3 










Link Edit JCL-ISIC 


//LNKOISIC JOB (ACCTtINFO) ,*NAME»»MSGLEVEL=(2*0) 


//LIB 

// 

//SYSLIB 

// 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

INCLUDE 


DD DSN=ISIC0BJ»DISP=SHR 
DD DSN=ALIB0BJ»DISP=SHR 
DD DSN=ISICOBJ»DISP=SHR 
DD DSN=ALIB0BJ»DISP=SHR 
DD UNI T=SYSDA,SPACE=(TRK* (30,20) ) 

DD UNIT=SYSDA,SPACE=(TRK, (100,20,5) 
DO * 

LIB(ISIC) 

LIB (MCHFNS,BLKDTA, VERSON) 


) ,DISP=( ,PASS) ,DSN=&.T (ALL) 


t,REGION=180K 

//bYSPRINT DD SYS0UT=A 

//lib 


//SYSLIB 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

overlay 

INSERT 

overlay 

INSERT 

OVERLAY 

INSERT 

OVERLAY 

INSERT 

INSERT 

INSERT 

INSERT 

OVERLAY 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

OVERLAY 

INSERT 

INSERT 

INSERT 

Overlay 

INSERT 

INSERT 

INSERT 

INSERT 

INSERT 

overlay 

INSERT 

INSERT 

INSERT 


DD 
DD 
DO 
DD 
DO 

LIB(ALL) 


DSN=& T, D I SP=( OLD, DELETE) 
DSN=SYS1.F0RTLIB,DISP=SHR 
UNIT=SYSOA,SPACE=(TRK, (30,?0) > 

D I SP=OLO,DSN=FLEX STAB .LOAOMODL. LIBRARY ( ISIC) 


vcontl,marite,bloker,vcntl 

A 

GOC,PGD 

A 

0PTI0N,SIC10P 

A 

fmat,cmat,ksube,ksubm,pmat 

BCKSUB,M INVER, RECVEC, reduce, ST0IN,STD0UT,T A AB,TAINV 
tinver,tmad,tmda,tsab,zap 

SISISI ,S3S3S3,S4SAS4 
A 

SIC 

CM07,ST08, JPOl , JP02, JP03, JP04, JP05, JP06, JP07, JP08, JP09,SB01 

^ ,TM92, TM03,TM04 , TM05 

TM06,TM07,TM08,TM10,TM11,TS02,TS03,TS04,TS05,TS06,TS07,TS08 

If^^’I!^^t’'^^^^’^'^^^’'^^^2,TS21,TS20,ST02,TS19,ST14,ST15,TS18 

TS23,ST03,ST04,ST05,ST06,TR05,ST16 

B 

sdef,gyrord,loadtp,nminf,path,plotap,sbdata,sicprt 

SICRD,TBDATA 

ST09, JP12, JPl 1 ,JP10,TM09,AT03,AT02,AT01 ,NA01 ,CM13 
B 

TFORM 

RWVEC,WVE 

^|}n’^fJl’IiJt’^^^^’■’■^2®’’^S27,TS25,TS26,TS24,TS17,TS13,TSl^ 

iS10,TS09,TS01 

B 

mmat »cgrav,msube,dmass,msubr,msubx,phibar,phibst 

SUMMAT,TTRANS 
SMOl ,LM03,CG02,CG01 


(CONTINUED) 


ISIC-J CL cont. 





tCPMAT ♦CSMATX, JPMATt JPTRAN 






Link Edit JCL-MM 


//LNKONM JOB (ACCTf INFO) , *NAME» *MSGLEVEL= (2,0) 

//LKNMl EXEC PGM=IEWL »PARM= « NOMAP *L 1ST , LET «, REGI0N=1 OOK 

//sysprint do SYS0UT=A 


//LIB 

DD 

// 

DD 

//SYSLIB 

DD 

// 

DD 

//SYSUTl 

DD 

//SYSLMOD 

DD 


OSN=NMO0J,DISP=SHR 
DSN=ALIBOBJ»OISP=SHR 
OSN=NMOBJ»DlSP=SHR 
DSN=ALIB08J»DISP=SHR 
UNIT=SYSDA»SPACE=(TRK» (30.20) ) 

UNIT=SYSDA.SPACE=(TRK. (100.20.5) ) .DISP= ( .PASS) .DSN=&T(ALL) 


//SYSLIN DO * 

INCLUDE LIB(NM) 

INCLUDE LIB (MCHFNS. VERSON) 


//LKNM2 EXEC PGM=IEWL .PARM= « MAP .Ll ST .OVLY * .REGI0N= 1 OOK 

//SYSPRINT DD SYSOUT=A 

//LIB DD OSN=&T.DISP=(OLO. DELETE) 


//SYSLIfl 

//SYSUTl 

//SYSLMOD 


DD OSN=SYS1.FORTLIB.OISP=SHR 
DD UNIT=SYSDA.SPACE= (TRK. (30.20) ) 

DD DISP=OLO.DSN=FLEXSTA8.LOADMODL.LIBRARY(NM) 


//SYSLIN DD * 

INCLUDE LIB(ALL) 

OVERLAY A 

INSERT VCONTL.MARITE.BLOKER.VCNTL 
OVERLAY A 

INSERT INCONT.CTINIT.NMOPT.DSN 
INSERT DATA. INTURP. PAGE 
INSERT ICARD 
OVERLAY A 

INSERT shape.dyna.cholin.cholt.eigen.hshldr.value.vectri 
INSERT SCALEV.RECOVR 
insert NM02.NM03.NMOA 
OVERLAY A 

INSERT FNMAT.DIAG.CMAT.MODE.RESID 
INSERT COPY.CTFADD.CTMADD.TSAB 


OVERLAY A 

INSERT NMOUT.DISPSC.NMPRNT 
INSERT ST01.ST02.5T03 


Link Edit JCL-ESIC 



//LNKPiESIC JOB (ACCT, INFO) , 'NAME* ♦MSGLEVEL=(2»0) 

//£^ ICl EXEC PGM=IEWL»PAPH=tNOMAP»L,lST»LET»SIZE=(178K,l6K) » ,REGION=180K 

//SYSPRINT DD SYS0UT=A 

//LIB DD DSN=ESICOBJ.DlSP=SHR 

// DD DSN=ALIB0BJ*DISP=SHR 

//SYSLIR DD DSN=ESICOBJ*OISP=SHR 

// DD DSN=ALIBOBJ*DISP=SHR 

//SYSUTl DD UNIT=SYSDA*SPACE= (TRK* (30.20) ) 

//SYSLMOD DD UNIT = SYSDA,SPACE=(TRK. (100,20.5) ) ,DISP= ( .PASS) .OSN=8.T ( ALL ) 
//SYSLIN DD 

INCLUDE LI0(ESIC) 

INCLUDE LIB (MCHFNS. VERSON) 

//ESIC2 EXEC PGM=IEWL.PARM=»MAP.LIST.0VLY.SIZE=(178K,16K) * .REGI0N=180K 

//SYSPRINT DD SYS0UT=A 

//LIB DD DSN=8iT.DISP=(OLD, DELETE) 

//SYSLIR DD DSN=SYS1 ,F0RTLIB.DISP=SHR 
//SYSUTl DD UNIT=SYSDA.SPACE=(TRK. (30.20) ) 

//SYSLMOD DD DISP=OLD.DSN=Fl EXSTAB.LOADMODL, LIBRARY (ESIC) 

//SYSLIN DD * 

INCLUDE LIB(ALL) 

OVERLAY A 

INSERT INTM0P.VC0NTL.MARITE.BL0KER.VCNTL.M0P5 
OVERLAY A 

INSERT PREP .GDRD. moment. OPT. PAD. P I NF.PLOAD.OUADCH 
INSERT SICPRT.SICRD.SRTPNL.SYNTAX.TRICH 
INSERT data. INTURP.PGD, STATUS 
INSERT ST07.ST08.ST09.CM13.CM14. ICARD 
OVERLAY A 

INSERT MATGEN.MOMOUT.MSURAA.PHlBAR.PHIBST.PMAT. QUINT, TRINT 
INSERT RWVEC.TPRVSP.WVE.ZERO 
OVERLAY A 

INSERT FMAT.CMAT.INRTLR.OINVER.RMAT 
INSERT CINVER.CPRINT.TMAB.TMABT.TMATP.TSAB.TSIA 
INSERT TTRANS.VIP.VLIN 
INSERT TM02.CTMSB 

/« 





Link Edit JCL-Siibb 


jOR 

//SDS«J| EKEC 


CACCT « INFO) t fNAMF « »MSGLEVEL= ( 2 » 0 ) 


//sysprint od sysout=a 


(300K, 16K) » , REGION: 


:300K 


//LIB 
// 

//SYSt !B 


'VSYSiJ Tl 


0SN=S0SS0BJ»DISR=SHR 
OSNsALIBOBJ»OISP-SHR 
D^N=SDSSOB J , D I SP=SHR 
D3N“ALl80BJ»DrGP=5HR 
UN|T::SYSOAtSPACE=rfRK» (30»20) ) 


UNIT::SySOAoSPACE={TRK, (100,20»5) ) »DISP= { »PASS) , DSN=&T ( ALL ) 


DD 
OD 
DD 
DO 
DO 

//SySLMOO DD 

//SYSLIN DO 

INCLUDE tiBfSnSS) 

I WCLllDE L I B f MCHFNS » 8LK0TA « VERSON ) 

//SnSSP EXEC P^M=IEWL9PARM=»MAP«LIST»0VI Y<i8T7F- /innk' iak-is nc-rrnki 
//sysprint od SYS0UT=A «'"-Li^T,OVLY.SIZE-(300K,16K)»,REGI0N=300K 

OD DSN=6,T,DISP={0L0»DELETE) 

OD dsn=sysi.fortlib,disp==shr 

DO UN|T=SYSDA,SPACE:={TRK, (30,20) ) 

DO 01 sp=olo,dsn=flexstab»loadmodl»library ( SDSS ) 

DD 

LIB(ALL) 


//lib 
//SYSLIB 
//SySUTl 

//syslnoo 
//SYSLIN 
INCLUDE 


Overlap 

INSERT 
INSERT 
OVERLsy A 


A 

INITAL,I0UNTS, INTALI » INTAL2 , INTAL3 
Ci.RT AB , MARI TE , RLOKER , VCONTL » VCNTL 


!?s!SERT PREPAR^RLDTABfFlLF 
INSERT GD029INPT 

Overlay b 

P002,ICARD 

B , ' ■ ■ ■ ■ 

TaPEIN»RGD'/SUM» ARETAB,MATCAT 
PGD 

AR05,AR04,aR03»AR02»AR01 
B 

fdata,sicpar 

A 

ENGINE,TDATA,TMAT,GYR0 

TR13,TR12,TRll,TR03,TR02.TR01,TR14,TRl5,TR16,TR17,TRia,TR19 


INSERT 

overlay 

INSERT 

INSERT 

INSERT 

OVERLAY 

INSERT 

OVERLAY 

INSERT 

INSERT 

OVERLAY 


^’^^^^’^0ATA»CTRANS,CINT ,gint ♦HTRANS»DTRANS,PTPANS 

Overlay a ’ 

DUAL , FORCE 9 CONTRL ,C0NSUR 
A 

BASIC,BDATA,BPSI ,PHIBST,CPTRAN,STFTAB 
BA0a,BA07,BA06»BA03»BA02,BA0r 

A 

BCKSUB,C0PYM ,M I NVER 9 MOP , NEEDS ,RECVEC , REDUCE 

TRNFER,TSAB,TSATB,TSIA,TSMA»TTRANS,VLIN,ZAP 
CTMSB,S1S1S1 ,S3S3S3,S4S4S4 


INSERT 

overlay 

INSERT 

INSERT 

overlay 

INSERT 

INSERT 

INSERT 

INSERT 


1-8 


(CONTINUED) 




SDSS-JCL cont. 


OVERLAY C 

INSERT STACON,DER,SDM»MGW 
INSERT CAAB.CPRINTtCSMA 

INSERT PTOl »PTO2,PTO3»PTO4,PTO5»PTO6,PTO7»PTO0 
INSERT TM05*TM12»TM13»TM14*TM15»TM19,TM24 
OVERLAY D 

INSERT D0NE»RAIC,DS,0A 

Overlay d 

INSERT TRIM»TMDATA»TS*TA,FS*FA,FT,TRIMCCtTRIMlT»WTnATA»WTDER 
INSERT F2F3»TMPRT.FT0TAL 
INSERT CSABtLINEIN 
INSERT TM22»TM21 ♦TM16»TM23 
OVERLAY D 

INSERT SHAPE,SMAT»DFP*SD,SDLISTtPRES,SBPRES,T0PRES, LOADS 

overlay D 

INSERT INTDW,RISC,LEC»DMAT 
OVERLAY D 

INSERT SDSP ♦ STAGER, AERDERt SPEED* ST APAR 
INSERT SBOl ,SB02,SB03,5B04,SP01 
OVERLAY D 

INSERT PERT! ,FUS ♦ RFS ,RQS ,RFA ,FRA »RQA ,FFS ,EQS ,EFA ♦ EGA 
OVERLAY D 

INSERT PERT2,RDULSC,UAICS,UAICA,UPRES,PPRES 
OVERLAY D 

INSERT PERT3,PDER,STABIT,PSIC,PMAT,PGYR0 
INSERT PMATl ,PMAT?,PMAT3, PMAT4 
INSERT SSPARTfSTPART 
INSERT PD30,PT11 ,PT10 

overlay D 

INSERT PERT4, CONGER, GAME, PLOAD, RELOAD, PGLOAD 
OVERLAY C 
INSERT GUST,PGUST 
INSERT GUOl 
OVERLAY A 

INSERT CER,DIGEST,HMAT,L0NG1 ,LAT1 ,COUPl ,L0N62,LAT2,C0UP2 
INSERT cmfind,dminit,dmfind,dmaod,dmdel,sec,figenc,geneig 
INSERT eigenp,hesqr,scalf ,REALVE,C0MPVE,CERPRT,CSHELL»FSHELL,AMPHAS 
insert CHOI ,CH03,CH04,CHo5,rM06»CT01 ,CT02,IV01,IV02,IV03,IV04,IV05 
INSERT IV06,IV07,IV08,IV09,tVl0»IVll ,IV12»IV13,IV14,IV15,IV16,IV17 
INSERT IV20 ,IV21 ,MD01 ,CH02,CP0l »CH07 
Overlay a 

INSERT POST, PDATA, MS I ZES,SOTAPE, SUMARY 


Link Edit JCL-TH 


//LNKOTH JOB (ACCT» INFO) ♦ ‘NAME* »MSGLBVEL= (2*0) 

//LKTHl EXEC P0M=IEWL *PARM= « NOMAP ,LI ST .LET * SI ZEs ( 1 70K , 1 6K ) • ,REGION=180K 

//SYSPRTNT OD SYS0UT=A 

//LIB DO DSN=THOBJ*DISP=SHR 

// DD DSN=ALIROBJ.niSP=SHR 

//SYSLIR DO OSN=THOBJ*DISP=SHR 

// DD 0SN=ALI80BJ.niSP=SHR 

//SYSUT] DD UNIT=SYSDA,SPACE=(TRK* (30*20) ) 

//SYSLMOD do UNIT=SYSDA*SPACE=(TRK* (100,20*5) ) *DISP=( .PASS) ,DSN=8.T ( ALL) 
//SYSLIN DD 

INCLUDE LIR(TH) 

INCLUDE L IB ( MCHFNS , BLKDT A * VERSON ) 

//LKTH2 EXEC PGM=IEWL *PARM= » MAP *L 1ST *0VLY*SIZE= ( 1 78K * 16K ) • *REGlON=lfaOK 

//SYSPRTNT DO SYSOUT=A 

//LIB DD DSN=S,T*DISP=(OLD*DELETE) 

//SYSLIR DD DSN=SYS1.F0RTLIB*DISP=SHR 
//SYSUT] DD UNIT=SYSDA*SPACE=(TRK* (30*20) ) 

//SYSLMOD DO OlSP=OLD*OSN=FLEXSTAB. LOADMODL. LIBRARY (TH) 

//SYSLIN DD « 

INCLUDE LIB (ALL) 

OVERLAY A 

INSERT SETUP * INI TAL .DIGEST * UNSET *M*MM 1C 
INSERT MaRITE.BLOKER.VCONTL 
INSERT GMOlfVCNTL 
OVERLAY A 

INSERT TABRD*DERT,DFI,DIFFER*SKI 
OVERLAY A 

INSERT RDRIVE,NRKR,STEP*RBM,THPRIG 
OVERLAY A 

INSERT REDRIV,NRKE.STEPE*REM,EVDUDE*THPRES 
INSERT CAMAR.CSAD.CSDB 
INSERT GC05.GC0A.AV03 
OVERLAY A 

INSERT GUSTIN.GMIN.GETM.THGDRD 
INSERT GF06*GF05*GF03*GD01 




Link Edit JCL-ALDS 


//LNKPALDS 

//LKALDSI 

//SYSPRINT 

//LIB 

// 

//SYSLIB 

// 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

INCLUDE 

//LKALOS2 

//SYSPRINT 

//Lie 

//SYSLIB 

//SYSUTl 

//SYSLMOD 

//SYSLIN 

INCLUDE 

/» 


JOB (ACCT.INFO) , ‘NAME* fMSGLEVEL= (2.0) 

EXEC PGM=IEWL,PARM=»NOMAP.LtST»LET* .REGION=100K 
DD SYSOUT=A 


DD DSN=ALDSOBJ.DISP=SHR 
DO 0SN=ALIB0BJ.DISP=SHR 
DD DSN=ALDS0BJ.DISP=SHR 
DD DSN=ALIB08J.DISP=SHR 
DD UNIT=SYSDA,SPACE=(TRK» (30.20) ) 

DD UNlT=SYSOA.SPACE=(TRK. (100.20.5) ) .0ISP= ( .PASS) .DSN=iT(ALL) 
DD * 

LIB(ALOADS) 

LIB(MCHFNS.VERSON) 

EXEC PGM=IEWL,PARM=*MAP.LIST» .REGION=IOOK 
DD SYSOUT=A 

DD DSN=8iT.OlSP=(OLDtOELETE) 

DD DSN=SYSl.FORTLIB.DISP=SHR 
DD UNIT=SYS0A.SPACE=(TRK. (30.?0) ) 

DD DISP=0L0.DSN=FLEXSTAB.L0ADM0DL.LIBRARY (ALDS) 

DD * 

LIB (Al L) 



Link Edit JCL-SLDS 


//LNKPSLDS JOB < ^CCT , INFO) , ' MAME • »MSGLEVEL= ( 2 ♦ 0 ) 

//LKSLDSl EXEC PGM=IEWLf PARN »N0MAP»LIST.LET» tREGION-lOOK 

//SYSPRTNT DD SYS0UT=A 

//LIB DD DSN=SLOGOBJ.DIFP=SHP 

// DO DSN=ALIB0BJ»DISP=SHR 

//SYSLIB DD DSN=SLDBOBJ«DlSP=SHR 

// ' DD DSN=ALIBOBJ»DISP=SHR 

//SYSUTI DD UNIT=SYSDA,SPACE= (TRK* (30»?0) ) 


//SYSLMOD DD UNIT=SYSDA»SPACE=(TRK» (100^20 *5) ) .DI SP= ( »PASS) ,DSN=S.T (ALL) 

//SYSLIN DD * 

INCLUDE LIB(SLOAOS) 

INCLUDE LIB (MCHFNS»VERSOM) 

//LKSLDS2 EXEC PGM=IEWL » P ARM= * MAP f LI ST » tPEGIONsl OOK 
//SYSPRINT DD SYSOUT=A 

//LIB DD OSN=^T»DISP= (0LD»DELETE) 

//SYSLIB DD DSN=SYSl.FORTLIP.DISP=SHR 

//SYSUTl DD UNI^=SYSDA»SPACE=(TRK» (3()920) ) . , 


//SYSLMOD DD DISP=OLn»OSN=FLEXSTAB. LOADMCOL. LIBRARY (SLD5) 


//SYSLIN 


INCLUDE LIB(AU-) 



(J 


Link Edit JCL-CAIC 


//LNKPCaIC job (ACCTfINFO) , »NAME» »MSGLFVEL=(2,0) 

//LKCAICI EXEC PGM=IFWL *PARM= »NOMaP .L I ST *LET * ,RFGION= 1 OOK 

//SYSPRINT DD SYSOUT=A 

//LIB DD OSN=CAICO«J»DISP=SHR 

// DD DSN=ALIROBJ.DlSP=SHR 

//SYSLIB DD DSN=CAICOBJ*DISP=SHR 

// DD DSN=ALIB0BJ»DISP=SHR 

//SYSUTI DD UNIT=SYSDA,SPACE=(TRK» (30,20) ) 

//SYSLMOD DD UNIT=SYSDA,SPACE=(TRK, (100,20,5) ) ,DISP=(,PASS) ,DSN=5.T(Al L) 
//SYSLIN DD » 

INCLUDE LIB(CAIC) 

INCLUDE LIB (MCHFNS, VERSON) 

//LKCAIC2 EXEC PGM=IEWL ,PARM= • MAP ,LI ST • , RFGION=l OOK 

//SYSPRTNT DD SYSOUT=A 

//LIB DD DSN=S.T,DISP= (OLD. DELETE) 

//SYSLlB DD DSN=SYS1 .F0RTLIB.DISP=SHR 
//SYSUTI DD UNIT=SYSDA,SPACE=(TRK, (30,20) ) 

//SYSLMOD DD DISP=0LD,DSN=FLEXSTAB.L0ADM0DL.LIBRARY(CAIC) 

//SYSLIN dd « 

INCLUDE LIB (ALL) 

/« 



Link Edit JCL-PLOTTERE 


//LNKOaPLOT JOB ( ACCT ♦ INFO) , * NAME • »MSGLEVEL= ( 2 ♦ 0 ) 

//LKPLOTSl EXEC PGM=IEWL ♦PARM=« NOMAP »LI ST *LET • ♦REGION=l OOK 

//SYSPRIMT DO SYSO'JT = A 

//LIB DO DSN=PLOTSO0J,DISP=SHR 

// DO DSN=ALIBOBJ»DISP=SHP 

//SYSLIR DO DSN=PLOTSOBJ,DISP=SHR 

// no DSN=ALIBOBJ»DISP=SHR 

//SYSUTl OD UNIT=SYSDA»SPACE= (TRKt (30t?0) ) 

//SYSLMOD DD UNTT = SYSDA»SPACE= (TRK* ( 100 »?0»5) ) f DISP= ( »PASS) *DSN=&T ( ALL) 
//SYSLiM no 

INCLUDE LIB (THPLOT) PDPLOT NMPLOT EAPLOT 

INCLUDE LIBISCALEX) Special SCALE Routine for THPLOT (remove for others) 


INCLUDE LIB (MCHFNStVSNTH) ,VSNPD ,VSNNM ,VSNEA 
//LKPLOTS? EXEC PGM=IEWL ♦ PARM=« MAP »L 1ST *LET » ,REGI ON=l OOK 
//SYSPRINT DD SYSOUT=A 


//LIB 

//SYSLIR 

//SYSUTl 

//SYSLMOD 

//SYSLIM 

INCLUDE 

/•» 


DD DSN=S.T,DISP=(OLO, DELETE) 

DO DSN=SYSl.FORTLIB.DISP=SHR 
DD UNIT=SYSDA»SPACE= (TRK» (30t20) ) 

DD DISP=OLD»DSN=FLFXSTAB.LOADMODL.LIBRARY (THPLT) 
DD * 


LIB(ALL) 


NMPLT 

EAPLT 


Use this JCL to Link Edit all 4 plotter programs; 
change only the INCLUDE and SYSLMOD cards; remove 
INCLUDE- SCALEX except when creating THPLT load module. 


Appendix II 


JOB CONTROL LANGUAGE (JCL) 
to Execute each 
FLEXSTAB program (load module) 


Duplicates of this JCL are supplied on tape 
Volume FLX3 80 in Data Set JCLDECKS 


The named files which communicate data 
between separate FLEXSTAB programs are 
shorn as Data Set Names enclosed in[_ — !• 


Execution JCL-GD 



//RUN(n.'GD JOB (ACCTflNFO) , 'NAME* »MSGLEVEL=(2»0) 

//JOBLIP DD DSN=FLEXSTAB.L0ADM0DL, LIBRARY, DISP=SHR 
//FLEXSTAB exec PGM=GD,REGI0N=296K 
//FT06F001 DD SYSOUT=A 

//FT50F00L DO UN I T = SYSDA , SPACE= ( TRK , ( 5 , 5) , RLSE ) , 

// DCB= (RECFM=FR,LRECL=80 ,BLKSIZE=2480 ,RUFNO=l ) 

//FTOlFOOl DD DSN= |GDTAPE| ,SPACE=(TRK, (5,5) ,RLSE) ,DISP= (NEW ,CATLG) , 
// DCB= (BUFNO=l ) ,UNIT=????» VOL=5ER=?????? 

//FTC8F001 DD UNI T = SYSDA , SPACE= ( JRK , ( 1 0 , 1 0 ) ) , 

// DCB= (RECFM=VBS,LPECL=204A,BLKSIZE=2048,BUFNO=1 ) 

//PLOTTAPE DD UNIT=TP7,DISP= (NEW, KEEP) ,LABEL= ( ,BLP) o, 

//FT05F001 DD * 

/* 






Execution JCL-AIC 


//RlJNinJAlC 

//JOHLIR 

//flfxstab 

//FT06F001 

//FT50F001 

// 

//FT20F001 
//UT20 DD 
//UT21 DD 
//UT22 DD 
//UT23 DD 
//UT24 DD 
//UT25 DD 
//UT26 DD 
//UT27 DD 
//UT2B DD 
//UT29 DD 
//UT30 DD 
//UT31 DD 
//UT32 DD 
//UT33 DD 
//UT34 DD 
//HD35 DD 
//UT35 DD 
//UT36 DD 
//UT37 DD 
//UT38 DO 
//FT05F001 
/« 


JOB ( ACCT»INFO) * * NAME * » MSGLE VEL= ( 2 » 0 ) 

DD DSN=FLEXSTA8.L0ADM0DL.LIBRaRY»DISP=SHR 
EXEC PGM=aIC,REGI0N=386K 
DD SY50UT=A 

DO UNIT=SYSDA»SPACE-(TRKf (5»5) ♦RLSE) , 
DCB=(RECFM=£B»LRECL=ftO,BLKSlZE=24ftO»BUFNO=l ) 
DD DSN= lGDTAPEl tDlSP=OLD«DCR= (BUFNO=l ) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 


UNIT = SYSDA,SPACE=(TRK, (100,35) ) 

UNIT = SYSDA,SPACE=(TRK, (100,35) ) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 
UNIT=SYSDA,SPAC£= (TRK, (100,35) ) 
UNIT=SY5DA,SPACE=(TRK, ( 100,35) ) 

UNIT = SYSDA,sPACE= (TRK, ( 100,35) ) 

UNIT = SYSDA,SPACE=(TRK, (100,35) ) 

UNIT = SYSDA,SPACE=(TRK, (100,35) ) 
UNIT=SYSDA,SPACE= (TRK, (100,35)) 
UNIT-SYSDA,SPACE= (TRK, (100,35) ) 
UNTT=SYSDA,SPACE= (TRK, (100,35) ) 

UNIT = SYSDA,SPACE= (TRK, (100,35) ) 
UMIT=SYSDA,SPACE= (TRK, (100,35)) 

UNIT = SYSDA,SPACE= (TRK, (100,35) ) 
UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW,PASS) 
UNIT=SYSDA,SPACE=(TRK, (500,50) ) ,DISP=( NEW, PASS) 
UNIT=SYSDA,SPACE= (TRK, (100,35) ) 
UNIT=SYSDA,SPACE= (TRK, (100,35) ) 
UNIT=5YSDA,SPACE= (TRK, (100,35) ) 

DD ^ 


//CPT EXEC PGM=COPY,REGION=50K 
//FT06F001 DD DUMMY 

//D DD UNIT=SYSDA,5PACE=(TRK,1) ,DCB=(RECFM=U,BLKSIZE=20A8) 
//FTOIFOOI DD ncB=*.D,DISP= (OLD, DELETE) ,DSN=<f.FLEXSTAH.HD35 
//FT01F002 DD DCR = ^ . D ,D I SP= ( OLD , DELETE ) , D5 N = -i^ . FlE XSTAB . UT35 
//T DD IINTT=(TP9, , DEFER) , D I SP= ( , KEEP ) , DSN= |A I CT AP| , VOL=SER = ?????? 
//FT02F001 DD DSN = * . T ,VOL=REF = « . T ,DCB = '» . D , DI 5P= ( NEW , KEEP ) ,LABEL = 01 
//FT02F002 DD DSN=-». T , VOL=REF = «- . T , DCB = <^.0 ,DI SP= ( NEW , KEEP ) ,LABEL = 02 
/■» 
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//RUNl<i)ISlC JOB (ACCT»INFO) , »NAME» ♦MSGLEVEL=(2»0) 

//JOBLIB DD nsN=FLEXSTA8.L0ADM0DL.Ll8RARY»DISP=SHR 
//FLEXSTAB EXEC PGM=ISIC »REGI0N=366K 
//FT06F001 DD SYSOUT=A 

//FT50F001 DD UNI T=SYSDA » SP ACE= ( TRK , ( 5 »5 ) »RLSE ) , 

// DCR= (RECFMfF8»LRECL=aO,tiLKSIZE=2480»BUFNO=l ) 

//FT25F001 DD DSN= |GDTAPEk DI.SP=OLD.DCB= (RUFNO=l ) 

//UTOl DD UNIT = SYSDA»SPACE=(TRK, (100»35) ) 

//UTO? DD UNIT=SYSDA,SPACE=(TRK, (100»35) ) 

//UT03 DD UNlT=SYSDAf SPACE= (TRK, (100,35) ) 

//UT04 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT07 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT08 DD UMIT=SYSOA,SPACE=(TRK, (100,35) ) 

//UT09 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UTIO DD UNIT=SYSDA,SPACE= (TPK, ( 100,35) ) 

//UTll DD UNIT=SYSDA,SPACe=(TRK, (100,35) ) 

//UT12 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT13 DD UNIT=5YSDA,SPACE=(TRK, (100,35) ) 

//UTIA DD UMlT=SYSDA,SPACE= (TRK, { 100,35) ) 

//UT15 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT16 DD UNIT=SYSOA,SPACE=(TRK, (100,35) ) 

//UT17 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT18 DD UNIT=SYSDA,SPACE= (TRK, (100,35) ) 

//UT19 DD UNIT=SYSDA,SPACE= (TRK, (01 ,01) ) ,DISP= (NEW,PASS) 
//UT20 DD UNIT = SYSDA,SPACE= (TRK, ( 100,35) ) 

//HD2L DD UNIT=SYSDA,SPACE= (TRK, (01 ,01 ) ) ,DISP= (NEW,PASS) 
//UT21 DD UNIT=SYSDA,SPACE=(TRK, (500,50) ) ,DISP=(NEW, PASS) 
//HD22 DD UNIT=SYSDA,SPACE=(TRK^(01,01) ) ,0ISP=(NEW,PASS) 
//UT2? DD UNIT=SYSDA,SPACE=(TRK, (500,50) ) ,DISP=(NEW, PASS) 
//HD23 DD UNIT=SYSDA,SPACE= (TRK, (01 ,01 ) ) ,DISP= (NEW,PASS) 
//UT23 DD UNIT=SYSDA,SPACE= (TRK, (500,50) ) ,DISP= (NEW, PASS) 
//HD24 DD UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW, PASS) 
//UT24 DD UNIT=SYSDA,SPACE= (TRK, (500,50) ) ,DISP= (NEW, PASS) 
//HD25 DO UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW, PASS) 
//UT25 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) ,DISP=(NEW, PASS) 
//FTllFOOl DD UNIT = SYSOA,SPACE=(TRK, (10,10) ) , 

// DCR=(RECFM=VBS,LRECL=204A,BLKSIZE=2048,BUFNO=1) 

//FT05F001 DD 
/* 

//CPT EXEC PGM=COPY,REGION=50K 
//FT06F001 DD DUMMY 

//D DD UNIT=SYSDA,SPACE=(TRK,1) ,DCB=(RECFM=U,BLKSIZE=2048) 
//FTOlFOOl DD DCR=-». D,DISP=(OLD, DELETE) ,DSN=-». FLEXSTAB. UT19 
//FT01F002 DD OCB=^.D,DISP= (OLD, DELETE) ,DSN=*. FLEXSTAB. HD21 
//FT01F003 DD DCB = <».0,DISP= (OLD, DELETE) ,DSN=^>. FLEXSTAB. UT21 
//FT01F004 DD DCR=*.D,DISP= (OLD, DELETE) ,OSN=». FLEXSTAB. HD22 
//FT01F005 DD DCB=*. D , DI SP= ( OLD ,DELETE) ,DSN=« , FLEXSTAB . UT22 
//FT01F006 DD DCB=-fr.D,DISP= (OLD, DELETE) ,DSN=-». FLEXSTAB. HD23 
//FT01F007 DD DCB = *.D,DISP= (OLD, DELETE) .DSN=<».FLEXSTAB.UT23 
//FT01F008 DD DCB=* . D ,DI SP= ( OLD ,DELETE ) ,DSN=* .FLEXSTAB . HD24 
//FT01F009 DD DCB=*.D,DISP= (OLD, DELETE) ,DSN=*. FLEXSTAB. UT24 
//FTOlFOlO DD DC8 = *. 0,DISP=(0LD, DELETE) ,DSN=<>. FLEXSTAB. HD25 
//FTOlFOll DD DCB='». 0,DISP=(0LD, DELETE) ,DSN=<^. FLEXSTAB. UT25 
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//T DO UNIT=(TP9»»DEFER) ,DI5P=(»K£EP) ,DSN=SJLCIAP»V0L = SER=?????? 

//TP DD UNIT=(TP9,»DEFER) ,DTSP=(,KEEP) ♦nsN=£AlAPE],V0L=5ER=?????? 
//FTOPFOOI DD DSN = ^.T»V0L = REF=-».T,DCB=-^.D»DISP= (NEW, KEEP) ,LA8EL = 01 
//FT02F002 DD DSN=« . T , VOL=REF=<^ . T ,OCB=* . D , DI SP= ( NEW ,KEEP ) ,LABEL = 02 
//FT02F0Q3 DD OSN = -» . T , VOL = REF=-» . T ,DCB='B- . 0 ,DI SP= (NEW ,KEEP ) ,LABEL = 03 
//FT02F004 DD DSN='«- . T , VOL=REF =->^ . T , DCB='» . D » D I SP= ( NEW , KEEP ) ,LABEL = 04 
//FT02F005 DD DSN = <» . T , VOL=RFF = <^ . T ,OCB='» . D ,DI SP= ( NEW , KEEP ) ,LABEL=05 
//FT02F006 DD 0SN=-*^.T,V0L = RFF=».T,0CB=<^.0,DISP= (NEW, KEEP) ,LABEL = 06 
//FT02F007 DD DSN = -» . T , VOL=RFF = <^ . T , DCB=-» . D ,Ol SP= ( NEW ,KEEP ) ,LAB£L = 07 
//FT02F00B DD DSN=<>.T,V0L = REF=*.T,UC8='».D,DISP= (NEW, KEEP) ,LABEL = 08 
//FT02F009 DD DSN=* . T , VOL = REF=-t^ . T , OCB=* . D , DI SP= ( NEW , KEEP ) ,LABEL = 09 
//FT02F010 DD DSN = '»' . T2 , V0L = REF=« .T2 ,DCB=-» ,D ,D I SP= (NEW , KEEP ) ,LABEL = 10 
//FT02F011 DD DSN=^. T2 , VOL = REF=-i» . T2 ,dCB = h» . 0 , D I SP= ( NEW , KEEP ) ,LAREL=11 
/» 





Execution JCL-NM 



//RUNNNM job (ACCTfINFO) ,*NAME‘*MSGLEVEL=(2,0) 

//JOBLIH DD DSN=FLEXSTAB.LOADMODL.LIBRARY»DISP=SHR 

//CP EXEC PGM=C0PY»REGI0N=5nK 
//FT06F001 DD DUMMY 

//T DD UNIT^TP9» »DEFER) »DISP=OLD,OCB=<RECFM=U,BLKSI7E=2048) , 

// DSM= [S~ICTA^ fVOL = SER = ?????? 

//FTOIFOOI DD DSN=*.T,VOL=REF=«.T,OlSP=OLD,LABEL=(01,*f IN) 

//FT01F002 DD DSN=<» . T f VOL=REF=<> . T»DI SP=OLD ♦LABEL= ( 02 , » » IN ) 

//FT01F003 DD 05N=<» . T » VOL = REF='*^ . T ,01 SP=OLD f LABEL= ( 03 , , » IN ) 

//FTOIFOOA DD DSN=’^.T,VOL=REF = «.T,DlSP=OLD,LABEL=(04f ,»IN) 

//FT01F005 DD DSN=* . T ♦ VOL = REF = <> . T ,DI SP=OLD »LABEL= ( 05 « » » IN ) 

//FT01F006 DD nSN = -*^ . T » VOL=REF=<^ . T ,01 SP=OLD » LABEL= ( 06 » » » I N ) 

//FT01F007 DD DSN=» . T , VOL=REF=* . T , D I SP=OLD , LABEL= ( 07 , , , I N ) 

//FT01F008 DD DSN=-*^ . T , VOL=RFF = '» . T ,UISP=OLD ,LABEL= ( 08 , , , I N ) 

//FT01F009 DD OSN=-» . T , VOL = REF = « . T ,OISP=OLD ,LABEL= ( 09 , , , I N ) 

//FT02Fn01 DD UNIT=SYSDA,SPACE= (TRK» (01 ,0D ) , DCB = <^ . T , D I5P= (NEW , PASS ) 
//FT02F0 02 DD UNI T=SYSDA , SPACE.= ( TRK , (01 ,0l ) ) , DCB = -^ . T , D I SP= ( NEW , PASS ) 
//FT02F0 03 DD UN I T = SYSDA , SPACE= ( TRK , (50 0,50) ) , DC8 = « . T , D I SP= ( NEW , PASS ) 
//FT02F0 04 DD UN I T = SYSDA , SPACE= ( TRK » (01,0D ) , DCB = ^» . T , D I SP= ( NEW , PASS ) 
//FT02F005 DD UNI T=SySOA , SPACE= ( TRK , ( 500 , 50 ) ) , DCB=* . T , D I SP= ( NEW , PASS ) 
//FT02F0 06 DD UN I T = SYSDA , SP ACE= ( TRK , (01,01) ) , DCR = <» . T , D 1 SP= ( NEW , PASS ) 
//FT02F007 DD UNI T=SYSDA , SPACE= ( TRK , (500,50) ) , DCB=* . T , D I SP= ( NEW , PASS ) 
//FT02F0 08 DD UN I T=SYSDA , SP ACE= ( TRK , (01,01 ) ) ,DCB = '^. T ,DISP= (NEW, PASS) 
//FT02F0 09 DD UN I T = SYSDA , SPACE= ( TRK » ( 50 0 , 50 ) ) , DCB = ^ . T , D I SP= ( NEW , PASS ) 
//FLEXSTAB exec PGM=NM,REGI0N=252K 
//FT06F001 DD SYSOUT=A 

//FT50F001 DD UN IT=SYSDA , SPACE= ( TRK , ( 5 ,5 ) , RLSE ) , 

// DCB= (RECFM=FB,LRECL=80,BLKSIZE=24BO,8UFNO=1 ) 

//UTOl DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT02 DD UNIT=SYSDA,SPACE={TKK, (100,35) ) 

//UT03 DD UNIT=SYSDA,SPACE= (TRK, ( 100,35) ) 

//UT04 DD UNIT = SYSDA,SPACE=(TRK, (100,35) ) 

//UT07 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT08 DD UNIT=SYSDA,SPACE= (TRK, ( 100,35) ) 

//UT09 DD UNIT=SYSDA,SPACE= (TRK, ( 100,35) ) 

//UTIO DD UNIT=SYSDA,SPACE= (TRK, ( 100,35) ) 

//UTll DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT12 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//HD13 DD UNIT=SYSDA,SPACE= (TRK, (01 ,01 ) ) ,DISP= (NEW,PASS) 

//UT13 DD UNIT=SYSDA,SPACE= (TRK, (500,50) ) ,DISP= (NEW, PASS) 

//UT19 DD DISP= (OLD,PASS) ,DSN=-!^.CP.FT02F001 
//HD21 DD DISP=(0LD9DELETE) ,DSN=*.CP.FT02F002 
//UT21 DD DISP=(0LD, DELETE) ,DSN=«. CP, FT02F003 
//HD22 DD DISP= (OLD, DELETE) ,DSN=«. CP. FT02F004 
//UT22 DD DISP= (OLD, DELETE) ,DSN='», CP. FT02F005 
//HD23 DD DISP=(OLD,PASS) ,DSN=-».CP.FT02F006 
//UT23 DO DISP=:(MOD,PASS) ,DSN=*.CP.FT02F007 
//HD24 DD DISP= (OLD,PASS) ,DSN=».CP.FT02F008 
//UT24 DD DISP=(MOD,PASS) ,DSN='».CP.FT02Fo09 
//FT05F001 DO ^ 

/■»• 
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//CPTl FXEC PGM=COPY,REGION=50K 
//FT06E001 DO GUMMY 

//D DO UNIT=SYSDA»SPACE= (TRK, 1 ) ,DCB= (RECFM=U,BLKSIZE=?048) 
//FTOlFOOl DO OCB = <^.D»DISP=(OLD, DELETE) , DSN=<> . FL EXSTAB . UT 1 9 
//FT01F002 DD DCR = <^ . D , 0 1 SP= ( OLD , DELETE ), DSN = * . FLEXSTA8 . HD?3 
//FT0lFon3 DD OCB = ^^.D»DISP= (OLD, DELETE) ,nSN=*.FLEXSTAB.HT23 
//FT01F004 DD DCB = -».D,DISP= (OLD, DELETE) ,DSN=<>.FLEXSTAB.HD24 
//FT01F005 DD DCR^<*.D,DISP= (OLD, DELETE) ,nS N=»,FL EXSTAR»UT?4 
//T DD UNI T= ( TP9 ,, DEFER ) ,OISP= ( ,PASS) ,DSN =|S ICTP3j , VOL = SER=?????? 
//FT02F001 DD DSN=*. T , VOL = REF=-». T ,DCP='» .D ,DI SP= ( NEW ,PASS) ,LABEL = 01 
//FT02F002 DD DSN=<» . T , VOL=REF=». T ,UCB = « . D ,DI SP= ( NEW , PASS ) ,LABEL=02 
//FT02F00 3 DD DSN = » . T , VOL=REF=-t^ . T , UCB = * . D , 0 1 SP= (NEW, PASS) ,LABEL = 03 
//FT02F004 DD OSN=<» , T , VOL=RFF=-» . T ,DCB=-^ . D , D I SP= ( NE W , PASS ) ,LABEL = 04 
//FT02FOOS DD OSN = * . T , VOL = RFF=•t^ . T , DCB = * . D , D I SP= ( NEW , PASS ) ,LA8EL = 05 
//CPT2 EXEC PGM=COPY,REGION=50K 
//FT06F001 DD DUMMY 

//D DD UNIT=SYSDA,SPACE= (TRK, 1 ) ,DCB= (RECFM=U,BLKSIZE=?04H) 
//FtOIFOOI DD DC8=<>. D,DISP=(0LD, DELETE) ,D5N=^^.FLEXSTAB.HD13 
//FT01F002 DD DCB = *^.D,DISP= (OLD, DELETE) ,D SN=<^.FLE XSTAB.UT1 3 
//T DD UNIT= (TP9, , DEFER) ,DISP=( ,KE£P) , DSN= jNMTAPE| , VOL = SER = ?????? 
//FT02F001 DD DSN='‘^ . T , VOL=RFF = -» ,T ,DCB = * . D , Dl SP= (NEW , KEEP ) ,LABEL=0h 
//FT02F002 DD DSN=<».T,VOL=RFF = 't^.T,OCB = «.D,DlSP= (NEW, KEEP) ,LA8EL = 07 




Execution JCL-ESIC 




//RUNfcDESIC 

//JOBLIB 

//FLEXSTAR 

//FT06F001 

//FT50F001 

// 

//FJOIF 001 
//FT02F001 
// 

//FTD3F001 
//UT04 DD 


JOB (ACCT»INFO) , ‘NAME* »MSGLEVEL= (2»0) 

DD nSN=FLEXSTAB. LOADMODL. LIBRARY ♦DISP=SHR 
FXEC PGM=ESIC?REGI0N=312K 
DD SYS0UT=A 

DD UNIT=5YSDA»SPACE=(TRK, (5»5) »RLSE) ♦ 

DCB= {RECFM~FB^LRECL=80«BLKSIZF=2480*BUFNO=1 ) 

DD DSN=lGDIAPl]»nlBP = OLD,DCB= (0UFNO=1 ) 

DD UNIT=SYSDA»SPACE=(TRK, (50»20) ) » 

DCB= {RECFM=VBS,LRECL=2044,BL.KSIZE=20A8»BUFNO=1 ) 

DD UNIT=SYSDA»SPACE= (TRK, (50,?0) ) ,DCB = -» .FT02F00 1 
UNIT=SYSDA,SPACE={TRK, (100,35) ) 


//UT07 OD UNIT=SYSDA,SPACE=(THK, (100,35) ) 

//UT08 DD UNIT=SY50A,SPACE=(TRK, (100,35) ) 

//UT09 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//NaSTAP DD UNIT=(TP9, , DEFER) ,DISP=0LD,V0L=SER=?????? 

//FT09F001 DD OSN =MATRI X « NA>^E , VOL=REF=<* . NASTAP ,Pl 5P=0LD ,DCB= ( BUFNO=l 
//FT09F002 DD DUMMY 

//UTIO OD UNIT=SYSDA,SPACF=(TRK, (100,35) ) 

//UTll DD UNIT = SYSDA,SPACE= (TRK, ( 100,35) ) 

//UT12 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT13 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 


//UT14 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//FT15F001 DD UNI T=SYSDA , SPACE= (TRK , ( 50 , 20 ) ) ,DCB=* . FT02F001 
//UT19 DD UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW, PASS) 
//HD23 DD UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW, PASS) 
//UT23 DD UNIT=SYSDA,SPACE= (TRK, (500,50) ) ,DISP= (NEW, PASS) 
//HD24 DO UNIT=SYSDA,SPACE=(TRK, (01,01) ) ,DISP=(NEW, PASS) 
//UT24 DD UNIT=SYSDA,SPACE=(TRK,-(500,50) ) ,DISP=(NEW,PASS) 
//FT05F001 DD ^ 


) 


/* 

//CPT EXEC PGM=COPY,REGION=50K 
//FT06F001 DD DUMMY 

//D DD UNIT=Sy 5DA,SPACE=(TRK,1) ,DCB=(RECFM=U,BLKSIZE=2048) 
//FTOlFOOl DD DCR=-'*.D,DISP= (OLD, DELETE) ,DSN=«'.FLEXSTAB.UT19 
//FT01F002 DD DCB=*<.D,DISP= (OLD, DELETE) .DSN=*.FLEX5TAB.HD23 
//FT01F003 DD DC8=<» oD ,DI SP= ( OLD ,DELETE) ,DSN = * .FlEXSTAB . UT23 
//FT01F004 DD DCB='*^ » D ,01 SP= ( OLD ,DELETE) ,DSN=« . FLEXST AB . HD24 
//FT01F005 DD DGR=:* »D ,DISP= (OLD, DELETE) ,DS N='«- . FLE XST AB . UT24 

//T DD UNIT= (TP9,, DEFER) ,DISP=(, KEEP) ,DSN=lSiCIP3j,VOL = 5ER=?????? 

//FT02F001 DD DSN=*. T , VOL=REF=*. T ,OCP=« . 0 ,DI SP= ( NEW ,KEEP ) ,LABEL=01 
//FT02F002 DD DSN=«-,T,VOL=REF=».T,OCB=*.D,DlSP= (NEW, KEEP) ,LABEL = 02 
//FT02F003 DD DSN='» , T , VOL=REF='» . T ,DCB=<^ »D ,DI SP= (NEW ,KEEP ) ,LABEL = 03 
//FT02F004 DO DSN-* . T , VOL=REF=* . T ,DCB=* .D ,D I 5P= (NEW ,KEEP ) ,LABEL=04 
//FT02F005 DD DSN=^. T , VOL=REF = * . T ,OC8='«- ,D ,01 5P= (NEW ,KEEP ) ,LABEL = 05 


y 
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Execution JCL-SDSS 


//RUN[<aSDSS 
//JOBLIR 
//CPI EXEC 
//FT06F001 


JOB (ACCT»INFO) , 'NAME' »MSGLEVEL= ( 2 » 0 ) 

DO dsn=flexstab.loadmodl.library,disp=shr 

PGM=COPY»REGION=B0K 

DD DUMMY 


//T 

// 


DD UNIT=(TP9f , DEFER) »DI5P=0LD,0C8= (RECFM=U,BLKSI7E=?048) , 


dsn =|aictap( »vol=ser=?????? 

DD nsN = '».T»VOL=REF=*.T,DlSP=OLD,LABEL= (01 , , » IN) 

DD D5N=-».T»VOL=REF = <^.T»DISP=OLD,LABEL=(02» f » IN) 

DD UNIT=SYSDA»SPACE=(TRK, (01, OD ) , DCB=* .T , DI SP= (NEW , PASS ) 
DD UNIT=SYSDA,SPACE=(TRK, (500,50) ) ,DC8=*.T,DISP=(NEW,PASS 


//FTOIFOOI 

//ftoifoo? 

//FT02F001 
//FT02F002 
//CP2 EXEC 
//FT06F001 
//T 
// 


PGM=COPY,REGION=50K 
DD DUMMY 

DD UNIT= (TP9, , DEFER) ,DISP=OLD,OCB= (PECFM=U,BLKSIZE=2048) , 
D5N =|SICTP3| ,V0L = SER = ?????? 


//FTOIFOOI 

//FT01F002 

//FTOIFOOI 

//ftoifooa 

//FT01F005 

//FT02F001 

//FT02F002 

//FT02F003 

//FT02F004 

//FT02F005 

//FLEXSTAR 

//FT06F001 

//FT50F001 

// 

//FT15F001 
//FT20F001 
//HD21 OD 
//UT21 DD 
//UT22 DD 
//HD23 DD 
//UT23 DD 
//HD24 DD 
//UT24 DD 
//UTOl DD 
//UT02 DD 
//UT03 DD 
//UT04 DD 
//UT07 DD 
//UT08 DD 
//UT09 DD 
//UTIO DD 
//UTll DO 
//UT12 DD 
//UT13 DD 
//HD14 DD 
//UT14 OD 
//UT20 DD 
//FT05F001 
/<^ 


DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

DD 


DSN=<^T,V0L=REF=«.T,DISP=0LD,LABEL= (01 , , , IN) 
DSN=^^.T,VOL = REF=^.T,DIsP=OLD,LABEL=( 02, , , IN) 
DSN=*,T,VOL=REF=^.T,DISP=OLD,LABEL=(03, , ,IN) 
nSN=».T,VOL=REF=<*.T,DISP = OLD,LABEL= (04, , , IN) 

DSN = <^.T,V0L=REF = ».T,DISP=0LD,LABEL= (05, , , IN) 

UNIT = SYSDA,SPACE= (TRK, (100,35)) , DCB=<^ . T , D I SP= ( NE W , P ASS 
UNIT = SySDA,SPACE= (TRK, (01 ,0l ) ) , DCB^"^ . T , D I SP= ( NEW , PASS) 
UNIT = 5YSDA,SPACE= (TRK, (50 0,50) ) , DCB=-«- . T , DI SP= ( NEW , PASS 
UNIT=SY5DA,SPACE=(TRK, (01 ,0l ) ) , DCB=^ . T , Ol SP= (NtW,PASS) 
UNIT = SYSDA,SPACE= (TRK, (500,50) ) ,DCB = <».T ,DISP= (NEW, PASS 
EXEC PGM=SDSS,REGION=408K 
DD SYSOUT=A 

DD UNIT = SYSDA,SPACE=(TRK, (5,5) ,RLSE) , 
DCB=(RECFM=FB,LRECL=80,BLKSlZE=24aO,BUFNO=l) 

DD SYS0 UT=B 

DD DSN =|GDTAPEI ,DISP=0LD,DCB=(BUFN0=I) 

DISP= (OLD, DELETE) ,D5N=<*. CPI .FT02F0 01 

,DSN=**'.CP1 ,FTn2F002_ 

,DSN=*.CP2.FT02F001 
,DSN = -».CP2,FT02F002 
FT02F003 
FT02F004 

DISP= (OLD, DELETE) ,DSN=<^.CP2.FT02F0 05 
UNIT=SY5DA,SPACE=(TRK, (100,35) ) 

UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

UNIT=SY5DA,SPACE= (TRK, (100,35) ) 

UNIT = SY5DA,SPACE=(TRK, (100,35) ) 

UNIT=SYSDA,SPACE= (TRK, (100,35) ) 

UNIT=SYSOA,SPACE= (TRK, ( 100,35) ) 

UNIT = SYSDA,SPACE= (TRK, (100,35) ) 

Ui\IT = SYSDA,SPACE= (TRK, (100,35) ) 

UNIT=SYSDA,SPACE=(TRK, ( 100,35) ) 

UNIT=SYSDA,SPACE=(TRK, (05,05) ) ,DISP= (NEW , PASS) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

UNIT=SYSDA,SPACE= (TRK, (0l,01) ) ,DISP= (NEW, PASS) 
UNIT=SYSDA,SPACE= (TRK, (500,50) ) ,DISP= (NEW, PASS) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

DD * 


A 

(See 

note 

Ibelow) 


D1SP= (OLD, DELETE) 

DISP= (OLD, DELETE) 

DISP=(OLD, DELETE) 

DISP= (OLD, DELETE) ,DSN=^,CP2. 
DISP=(OLD, DELETE) ,DSN=^>.CP2< 


B 

|^(See note 
below) 


(CONTINUED) 
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SDSS^JCL Cont . 


//CPT EXEC PGM=COPY,REGION=^OK 
//FT06F001 DO DUMMY 

//D DD UNIT=SYSDA » SPACE= (TRK» 1 ) ,DCB= (RECFM=U*BLKSIZE=?04H) 
//FtOIFoOI OD nCB=^^. D90ISP=(0LD, DELETE) ,DSN=*.FLEXSTAB.UT12 
//FT01F002 DD nCB=-».D»DISP= (OLD, DELETE) ,nSN=<^.FLEXSTAB.HD14 
GCB = *.D»DISP= (OLDfDELETE) »DSN=<^,FLEXSTAB.IJT14 
//T DD UN IT=(TP9t> DEFER) »PISP=( ^KEEP) »DSN= |SD5STP |» VOL = SER= ?????? 
//FT02F001 DD DSN=-‘^.T»VOL=RFF = -».T»OCB=«.D»DISP= (NEW, KEEP) ,LaBEL = 01 
//FT02F002 DD DSN = « . T , VOL=REF = -«' . T ,DC8=». D ,DI SP= ( NEW , KEEP ) ,LaBEL = 02 
//FT02F003 DD DSN='«-.T,VOL=REF = *,T,DCe=*,D,DlSP= (NEW, KEEP) ,LABEL = 03 


NOTE - Second Copy step at A should be removed and JCL cards 
at B should be replaced by the following cards for 
a Rigid case (no STCTP3 data) : 

//UT22 DD UNIT=SYSDA,SPACE= (TRK, ( 100 ,35) ) 
//UT23 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 
//UT24 DD UNIT=SYSDA,SPACE= (TRK, (100,35) ) 






Execution JCL-TH 


//RijNiWTH JOB (ACCT,INFO) , *NAME* ♦MSGLFVEL=(2,0) 

//J)BLIR DO DSN=FLEXSTAR,LOADMOOL.LIBRaRY,DISP=SHR 
//CP EXEC PGM=COPY,REGION=SnK 
//FTOGFnOl DO nUMMY 

//T DD UNIT= (TP9 > , DEFER) » DlSP=OLO ,OCR= (RFCFM=U*RLKSIZE = ?04B) > 

// DSN siSnsSTPU VOL = SER = ?????? 

//FTOlFOOl no "DSN = <^.T,VOL = REF=^*.T,OISP=nLD,LABEL=(01 , , 

//FTOIFOO? QD DSN = ^^T,VOL.=RFF=^.T,OISP=nLD,LABEL={0?,,,P^J) 

//FTOlFnOl OD nSN=^»,T,VOL = RFF=<>.T,DISP=nL.D.LABEL=(03, , ,IN) 

//FTOPFoOI do IJNIT = SYSDA»SPACF = (TRK, (05*05) ) » DCR = <» . T » D I SP= ( NE W » P ASS ) 
//FT02F00 2 DD UNIT=SYSDA,SPACE=(TRK, (01*01) ) *DCP=-**.T.OlSP=(N)EW*PASS) 
//FT02 Fo03 OD UNTT=SYSDA*SPACE=(TRK, (S00,50) ) ♦ DCB=* , T , DI SP= (NEW . PASS) 
//FLFXSTAR EXEC PGM=TH,REGI0N=1R?K 
//FT06F001 DO SYSOUT=A 

//FT50F001 DD ON I T = S YSDA * SPACE= ( TRK , ( S , 5 ) , RLSE ) , 

DCB= (PECFM=FB»LRFCL=flO*8LKSl7F=2480*BUFNO=l ) 

//Hnni DD DISP-(OLD, DELETE) *DSN=^». CP. FTO 2 F 00 ? 

//UTOl OD D1SP=(0LD*DFLETE) *DSN=-».CP.FT02F003 

//HD02 DD UNIT=SYSDA * 5PACE= ( TRK * ( Ol ♦ O 1 ) ) *D I SP= ( MFW »PASS) 

//UT02 DD UNlT = SYSDAiS^CE= (TRK* (500*50) ) »DISP= (NEW, PASS) 

//FT03F00J. DO DSN=&DTA^*DISP=OLD,OCB= (RIIFN0=1 ) 

//UT04 DD DISP=(0LD*DELETE) ,D5N=-fr.CP.FT0?F00l 
//FT05F001 DD 
/* 


//CPT EXEC PGM=COPY*REGION=50K 
//FT06F001 DD DUMMY 

//D DD UNIT=SYSDA*SPACE=(TRK,1) ,DCB=(RECFM=U,BLKSlZE=2n48) 
//FTOlFOOl DD DCR = ^.0*DISP=(0LD*-DELETE) ,DSN = ^^.FLEXSTAB.HD02 
//FT01F002 DD DCR = ^.D ,DI5P= (OLD*DELETE) * DS N=<^ . FLE XSTAB . UT02 
//T DD UNIT= (TP 9 * *DEFER) ;DISP= ( *KE£P) * 0SN 4f HTAPEI * V0L=SEP = ?????? 

DSN=-»^.T 9V0L = REF=-»-,T,DCB-*,D*DISP= (NEW.KEEp) ,LABEL=01 
//FTO 2 F 002 DD DSN='».T*VOL=REF=-tt.T,DCB='».D*DlSP={NEW,KEEP) ,LaBEL = 02 
/■«■ 


Execution JCL-ALDS 


-■WJ< 


//RUNi-flALDS JOB ( ACCT » INFO ) , • NAME » » MSGLFVEL= ( 2 * 0 ) 

//JORLIR DO 0SN=FLEXSTAR.L0ADM0DL. library, DISP=SHR 
//CP EXEC PGM=CO^ Y,REGION=ROK 
//FT06F001 DO OllMMY 

//T DD UMIT=(TPP. , DEFER) ,DIRP=0LD,DC8=(RECFM=U,BLKSIZE=?048) , 

// DSN= fsnRgTP] .V0L = 5FR = ?????? 

//FTOlFOni DD DSN = <^.T»VOL = REF = a.T,DISP=OLD,LABEL=(01,,.IN) 

//FT01F002 DO 05N=->^ . T , VOL=RFF=-*> . T , D I SP=0LD , LABEL= ( 02 , , , I N ) 
no DSN = <*.T,VOL = RFF = <».T,OI5P=OLO,LA8FL= (03, , * IN) 

DD UNIT=SYSDA,SPACE=(TRK, (05,05) ) , DCB = <^ . T , D I SP= ( NEW , P ASS ) 
DD UNIT = 5YSDA,SPACE=(TRK, (01,01) ) , DCB = -» . T , D I Fp= ( NEW , PASS ) 
DD UNIT=SYSDA,5PACE= (TRK, (500,50) ) , DCB=* . T » D I SP= ( NEW , PASS ) 
EXEC PGM=ALDS*REGI0N=?26K 
DD SYSOUT=A 

DD UNIT = SYSDA,SPACE=(TRK, (5,5) ,RLSE) , 

DCB= (RFCFM=F8»LPFCL=80,BLKSI/F=2480,RUFNO=1) 

DD DSN= iGDTAPEI ,DlSP=OLD,DCB= (PUFN0=1) 

DISP= (OLD, DELETE) .DSN=^.CP.FTO?F001 


//FT01F003 

//FTQ2F001 

//FT02F002 

//FT02F003 

//flfxstab 

//FT06F001 

//FT50F001 

// 

//FtOIEOOI 
//UT02 DD 


//HD03 DD DISP=(OLD, DELETE) ,DSM=*.C°.FTn?F002 
//UT03 DD DISP-(OLD,DELETE) ,DSN=i>.CP.FT0?F003 
//UT04 DD UNIT=SYSDA,SPACF=(TRK, (100,35) ) 

//NaSTAP DD UNIT=(TP9, , DEFER) ,DISP=OLD,VOL=SER=?????? 

//FT07F001 DD DSN= MATR I X .NAME , VOL=REF = '»^ .NASTAP ,Dl SP = OLD , DCB= ( BUFNO = D 
//FT07F002 DD DUMMY 

//UT07 DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UTOB DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//FTlOFOOl DO UN1T=SYSDA,SPACE=(TRK, (10,?0) ) , 

DCB= (RECFM=VBS,LRECL=2044,BLKSIZE=2048»BUFNO=1) 

DD UNIT-SYSDA»5PACE=(TRK, (10,20) ) ,DCP='*>. FTlOFOOl 
DD UNIT=SYSDA,SPACE=(TRKf (10,20) ) ,DCB = '». FTlOFOOl 
DD UNIT-SYSDA»SPACE=(TRK, (10,20) ) ,DCB=^^ . FT 1 OFOOl 
DD UNIT=SYSDA»SPACE= (TRK, ( 10,20) ) ,DCB=^.FT10F001 
DD UNIT-SYSDA»SPACE=(TRK, (10,20) ) ,DCR = '». FTlOFOOl 
DD 


// 

//FT10F002 

//FT10F003 

//FT10F004 

//FT10F005 

//FTIOFOOG 

//FT05F001 
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Execution JCL-SLDS 


//RUNlwSLDS 
//JOBLIP 
//CPI EXEC 
//FT06F001 


JOB (ACCTiINFO) , 'NAME* »MSGLFVEL= ( 2 , 0 ) 

DD DSN=FLEXSTAB.L0ADM0DL.LIBRARY,DISP=5HR 

PGM=COPY,REOIOM=:S0K 

DD dummy 


//T 

// 


OD UNIT= (TP9. »OEFER) »DISP=OLD,OCB= (RFCFM=U,BLKSIZE=?0A8) » 


//FT01F002 
//FT02F001 
//FT02F002 
//CP2 EXEC 
//FT06F001 


D5N =|EATaPE I^V0L=SEP = ?????? 

//FTOIFOOI DD 'nSN=*.T^VOL = REF=-».T,OlSP=OL,D,LABEL=( 10, , 

DD DSN=-*^.T, VOL=RFF = -fr,T,OISP = OLD,LABEL= ( 1 1 , « , IN) 

OD IINIT = SYSDA,SPACE=(TRK, (01,01)) , DCB = '^ o T , D I SP- ( NE W , P ASS ) 
OD UNIT=SYSDA ,SPACE=(TRK, (500,50) ) , DCB = <^ . T , D I SP= ( NE W , PASS ) 
PGM=COPY,REGIOM=50'< 

DD dummy 

//T DD UNIT= (TP9, , DEFER) ,0I5P=0LD,DCB= (PFCFM=U,BLKSr7E=?048) , 

// DSN=i SDS5TP| ,V0L = SER=?????? 

//FTOIFOOI DD D5N = <^.T, V0L=REF=«.T,0ISP=0LD,LABEL= (01 , , , IN) 

//FtOIFOO? DD DSM=^.T,VOL=RFF=-fr.T,OISP=OLD,LABEL= (02, 9 , IN) 

DD DSN = <^.T,VOL = RFF=».T,UISP=OLD,LABEL= (01, , , IN) 

DD UNIT=SYSDA,SPACE=(TRK, (05,05) ) , DCB = <^ , T , Dl5P= ( NEW , PASS ) 
DD UNIT=SYSDA,SPACE=:(TRK, (01 ,01) ) , DCB = -» . T , 0 1 SP= ( NEW , P ASS ) 
DD UNIT = SYSDA,SPAC£=(TRK, (500,50) ) , DCB='» . T , D I SP= ( NEW , P ASS) 


//FT01F003 

//FT02F001 

//FT02F00? 

//FT02F003 

//flexstab 


FXEC PGM=SLDS,REGtON=2l4K 


//FT06F001 DD SYSOUT=A 

//FT50F001 DO UNIT=SYSDA,SPACE= (TRK, (5,5) , RISE) , 

// OCB=(RECFM=FB,LRECL=80,BLKSI7F=2480,BUFNO=1 ) 

//HDOI DD DISP=(OLD, DELETE) ,DSN=-».CP1.FTQ2F001 
//UTOl DO DISP=(OLD, DELETE) ,DSN=-». CPI. FT02F002 
//UT02 DD DI5P=(OLD, DELETE) ,DSN=-».CP2.FT02F001 
//H003 DD DISP=(OLD, DELETE) ,D5N=-».CP2.FT02F002 
//UT03 DD DISP= (OLD,DELETE) ,OSN=<^.CP2.FT02F003 
//UT04 OD UNIT=5YSDA,SPACE=(TRK, ( 100,35) ) 

//FT05F001 DO ^ 

/* 
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Execution JCL-CAIC 


//RUNWCAlC JOB (ACCT» INFO) , 'NAME* tHSOLfiVEL- (2»0) 

//JOBLIR DO DSN=FLEXSTAR.L0ADM0DL.LIBRARY»DISP-SHR 

//CP EXEC PGM=C0PY ♦REGION=50K 

//rSfSSn=°TP9nreFER),DISP=(OLO.PASS).DCB=(RFCFM=U.BLKSIZE=J04S). 


// dsn=[aJctapnvol=ser=?????? 

//FTOlFOOl DO nSN=«.T»VOL = REF = *».T,OISP=OLD,LABEL= 01, . »IN 
//FTOIFOO? DD DSN=<^.T,VOL=REF=*».T,OISP=OLD,LABEL=(02,, ,IN) 

//FTflPFnm DD UNIT=SYSDA,SPACE=(TPK,(01»0l)) .DCB-*»T»0l5P-( NEW, PASS) 
//FT02F0Q2 DD UNI T = SYSDA • SPACE= ( TRK , (500,50) ) , DCB=-» . T , D I SP- ( NEW , PASS ) 
//Fl.FXSTAB EXEC PGM=CA IC , REGI 0N = 140K 
//FT06F001 DD SYSOUT=A 

//FT50F001 DD UN I T = SYSDA , SPACE= ( TRK , (50 1 0 ) , RLSE ) , 

// QCe= (RECFM=FB,LRECL=80 ,BLKSI7F=24B0 ,BUFN0=1 ) 

//HOOl DD Dl SP= ( OLD , DELETE ), DSN=* .CP cFTOpFOO 1 
//Uim DD DISP= (OLD, DELETE) .DSN = -^. CP. FT02F002 
//HD02 DD UNIT=SYSDA,SPACE=(TRK, (01,01) ) .DISP=(NEW, PASS) 

//UT02 DD UNIT=SYSDA,SPACE=(TRK. (500,50) ) ,OISP=(NEW, PASS) 

//FT05F001 DD 
/« 

//CPT EXEC PGM=COPY ,REGION=50K 

//D'^DD'"uNlT=SYSDrSPACF=(TRK,l),DCB=(RECFM=U,BLKSIZE=2048) 

//FTOlFOOl DD DCB = ^. D,DISP=(OLD, DELETE) ,DSN=<^.FLEXSTAh.HD02 
y^'^rmFon? DD ncP = '^-r^‘DISP= (01 D. DELETE) ,DS N=-‘^ . FLF.XST AB . UT02 

QQ UNIT- (TP9, .DEFER) ,DISP= ( ,KEEP) . DSN=(A I CTAP'.CORR|.VOL = SER= ?????? 

//f{o2fSo2 DD dL=-.t:VOL=REF=-.T,DCB=-.D,DISP=(NEW,KEEP) ,La8EL = 04 
/«• 




Execution JCL-EAPLOT 



//RUMCAiEA#P JOB (ACCT, INFO) , ’NAME* »MSGLFVEL= (2*0) 

//JORLIB DD DSN=FLEXSTAP.L0ADM0DL. library, DISP=SHR 
//CP EXEC PGM=COPY,REGION=SOK 
//FT06F001 DD OLIMKY 

//T DD UNilf.il°9, , DEFER) ,DI5P=OLD,OCB=(RFCFM=U,BLKSIZF=?048) , 

// DSN=j EATAPE| ,V0L=5FR=?????? 

//FTOimOl DD DSN=*.T,VOL = REF = <^.T,L)I5P=OLD,LABEL = 10 
//FT01F002 DD DSN=* . T , VOL=RFF = «- . T , DI SP=Ol D ,LABEL= 1 1 

//FT02FOO.I DD UN IT=SYSDA » SPACE= ( TRK , (01,01) ) , DGR = «- . T , D I SP= ( NEW , P ASS ) 
//FT02F002 DD UNIT = SYSDA»SPACF= (TRK , (100, 3S) ) ,DCB = <^. T ,DI SP= ( NEW ,PA5S ) 


//FLEXSTAB EXEC PGM=EAPLT , REGI ON=200K , COMD= ( 0 ♦ LT ) 


//FT06F001 DD 
//FtSOFOOI DD 
// DCB 

//HD03 DD DISP 
//UT03 DD DISP 


DD SYSOUT=A 

DD UNTT=SYSDA,SPACE= (TRK, (5,5) ,RLSE) , 
DCB=(RECFM=FB,LRECL=aO,BLKSl7F=2480,BUFNO=l ) 
I SP=( OLD, DELETE) ,DSN=<^.CP.FTn?F001 
I SP= (OLD, DELETE) ,DSN=<^.CP.FTn?Ff)02 
DD UNIT=TP7 ,DISP= (NEW, KEEP) ,LaBEL= ( ,8LP) , . . . 
nD 




Executiog JCL-NMPLOT 


/ <ACCT»INF0) , 'NAMF* *M5GLFVEL=(2*0) 

V/rp^plrn D?S LIBRARY, DISP=SHR 

//CP EXEC PC7M=COPY,REGION=5oK 

//FT 06 F 001 no nUMMY 

//T DD UNi,T=(TP9, , DEFER) *01 FP=OLD ,DCB= < RFCFM=U ,bLKS 1 7F = ? 048 ) , 

// 0SN=[NMT^|,V0L = SER = ?????? u,«L.rsbi/t , 

^SM=^.f,VOL=REF=«.T,OlSP=OLO,LABEL =01 
//FT01F002 DD OSN=« . T , VOL=RFF=^ . T ,01 SP=OLD ,LABEL=02 

//FT02FOOI DD UNI T=S YSOA , SP ACE= ( TRK , ( 0 1 , 0 1 ) ) , DCR=^> . T , D I SP= ( NEW , PASS ) 
//F102F002 no 1JNIT=SYSDA,SPACE=(TPK, (100,35) ) .DPR-* T DT^P-Vmfw dacc^ 

//flfxstab exec pgm=nmplt,rfgion=i5^k;cSnd= Llh' 

//FT06F001 DD SYSOUT=A 

//UTOl DD UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

//UT 02 DD UNI T=SYSDA , SPACE= ( TRK , ( 1 00 ,35) ) 

//HD13 DD DISP= (OLD, DELETE) ,DSN=«-, CP, FT 0 ?F 00 J 
//UT13 DO DISP=(0L0, DELETE) ,DSN=^. CP. FT 02 F 002 

J^'NIT-TP7,DISP=(NEW,KEEP) ,LflBEL=(,BLP) 




Execution JCL-PDPLOT 


//RllNioJPn^P JOB (aCCTfINFO) , ‘NAME* ♦MSGLEVEL= (2.0) 
//JOHLIR DD DSM=FLEXSTArt.LOADMODL,LIRRARY,DlSP=SHR 
//Fl EXSTAB EXEC PGM=POPLT.RFGION=l OOK 
//FTOGFOOI DD SYSOUT=A 

//Pi OTT aPE DD UNIT=TP7.DISP=(MEW.KEEP) ,La8EL=(.BLP) 
//FT05F001 DD ^ 


Execution JCL-THPLOT 




P JOB <ACCTf INFO) , *NAME« *MSGLEVEL={2»0) 

DD dsn=flexstab.loadmodl,library*disp=shr 

PGM=COPY»REGION=50K 
1 DD DUMMY 

IlfJTPR, » DEFER) *DrSP=OLD»DCB= (RECFM=U»BLKSIZE=?048) » 

HTAPFU VOL=SER=?????? 

1 DD dsn=*.t,vol=ref=*.t,oisp=old»label=oi 

? DD DSN='»>.T,VOL=REF=*.T,OISP=OLD»LABEL = 02 
1 DD IJNIT = SYSDA»5PACE=(TRK* (01 jf'l) ) ,DCB=-».TfOlSP=(NEW»PASS) 

B DD UNIT=SYSDA»SPACE=(TRK, (100,35) ) ♦ DCB=» , T , D I SP= ( NE W , PASS ) 
B EXEC PGM=THPLT,RFGION=150K,COMD=(0,LT) 'Ntw,KASS) 

1 DD SYS0UT=A 

UNIT=SYSDA,SPACE= (TRK, (100,35) ) 

D I SP= (OLD, DELETE) ,DSN=».CP.FT0?F001 
D I SP=( OLD, DELETE) ,DSN=<>.CP.FT0?F002 




APPENDIX III 




The GDC to IBM Conversion of FLEXSTAB Software 


The FLEXSTAB program package was initially developed on GDC 6000 and 7000 
series computers. No effort was made to code the programs in a machine 
dependent fashion. FORTPxAN usage was not restricted to ANSI statements and 
machine dependent code was scattered among a large number of routines. Also, 
the system consists of 14 separate programs vjith no executive superstructure. 
Therefore, all communication between programs is established by transmitting 
files of information. 

In order that existing user and programmer documentation be equally useful 
with the IBM version, no change in program architecture or data communication 
techniques was permitted. Since program maintenance updates were expected, 
the source code line numbers within each version were to be as alike as 
possible. 


Operating under these constraints, the changes necessary to effect the con- 
version can be broadly grouped into: (1) changes due to FORTRAN dialect 

differences, (2) changes made necessary by the smaller 32-bit IBM computer 
word and, (3) changes due to FORTRAl'I compiler or operating system functional 
differences . 


The GDG FORTRAN dialect differences were quickly isolated through diagnostic 
messages from the IBM FORTRAN compiler. They included: 

a) The PROGRAM, OVERLAY, and GALL OVERLAY statements removed during 
conversion. 

b) Multiple assignment statements (e.g., I=J=K=1) , replaced by separate 
assignment statements. 

c) The IF (EOF(m)) statement replaced by FORTRAN I/O ENU= or GINO (See 
Appendix IV) logical END parameters. 

d) Hollerith literals in assignment statements (e.g., A=4HGASE) , replaced 

by statement function definition and appropriate calls (e.g,, A=LIT(4HGASE) 
with Statement Function LIT(L)=L.) 

e) DEGODE command, replaced by BAGKSPAGE and a (re)READ, 

f) BUFFER IN and BUFFER OUT, replaced fay standard FORTRAN I/O or calls to 
GINO. (See Appendix IV.) 

g) Octal constants in DATA and assignment statements, replaced by integer or 
hexadecimal constants. 

h) Use of logical operators .AND. and .OR. with operands not typed logical, 
replaced by function calls to an assembly language subprogram. 

i) References to first element of an array without explicit subscript 

(e.g., X=A for X=A(1)), replaced by a subscripted reference (e.g., X=A(1)). 
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The 32— bit IBM computer word dnM -j 

floating-point computations. '^xL^rLedy^was ^’LEXSTAB 

0-Zr statement to each subroutine! This sLtlff T (A-H. 

arxthmetic and data storage to double ^ statement forces all floating point 
computation precision slightlv exoPf.a ^ (64-bit) format. The resultant 

The standard 32-hlt for.af™^ “ altd^^: 

the contents of many common blocks which !! variables. Consequently, 

vatdahdea had to he te-„tdeted ad"-- 

Jte°CDrLfpSL“a^d coSar*l™J™ •>? 

diffxcult to diagnose. The difference invol^ad that were quite 

parameter passing methods. In the CDC nh-i i-~ ^ subprogram to subprogram 

with calla-hy-referenoe. In the IB“ohlS t are parsed 

are passed in this fashion; simple vari^hll ^ dimensioned parameters 

the FLEaXSTAB FORTRAN code, \hSrIrrselSl o"L" m 

are several occurrences of tht following; 

Subroutine A calls subroutine B tr-iMn 

routine B, where the parameter is not Sub- 

by calling subroutine C. Subroutine C aEain^°"^^)- “®®d, passes the parameter 

the parameter and uses several elements of thrparamLL'SraJf” 

caS fro^^^rf^Js madra1"rcS-h"!";iuf”"on!’ ™ 

correTtS SrprlhL^""”''' ““-alonlng the\arSet:i“'th‘in°"B‘''" 

A second CDC versus IBM functional Hhfe 

interface with the data management- routSri FORTRAN I/O and its 

operating systems. As developed for CDC e-i respective 

operating systems, FLEXSTAB pLforms all CRONOS 

nage I/O statements (READ, IffilTE END FIEE^ BTOTwm standard FORTRAN lang- 
logical files may be x«:itten on eacf fSI^t "" ""^i^ited number of 

logical file is a physical f-fla r-tp /^^TRAN unit. On the IBM 360, each 

JCL. The FLEXSTAB analysis of an SSlme^s^^^^ Definition statement in the 
over 450 logical files when a maximul requires 

allowed by OS/360. This situation mandatf^rt^ I Definition statements are 
I/O package. This package, named GINO III f “ FLEXSTAB 

described in Appendix IV. ralized Input/output, is 
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Appendix IV 

GINO - A Generalized Input/Output package for FLEXSTAB 


GINO is a collection of subprograms, coded in both FORTRAN and assembly 
language, which handles most unformatted input and output operations within 
OS/360 FLEXSTAB. The basic unit of I/O required by FLEXSTAB, and thus imple- 
mented in GINO, is a variable length logical record. The length of the logical 
record is completely variable; it depends only on the mmaber and size of items 
in the read/write list. In FLEXSTAB, a matrix row or vector is generally 
written and read as a record. A table or other collection of logically 
related data may also be handled as a record. 

The variable length GINO logical record must be stored on a disk device 
and the characteristics of the device must be taken into consideration. For 
the disk, the physical unit of organization is the track which stores a fixed 
number of words. Thus, there is a mismatch between the variable length GINO 
record and the fixed length disk track. 

The mismatch is resolved through blocking. Blocking creates fixed length 
blocks from variable length records by segmenting and storing the records so 
as to create: (1) multiple records and record segments per block, or (2) 

multiple blocks per record. The blocking design parallels quite closely with 
the Spanned Variable Length Record logic described in Reference 3 (OS Data 
llanagement Services). The physical output and subsequent input of these blocks 
is accomplished through the IBM Basie Sequential Access Method (BSAM) . The 
size of these blocks is a compromise between the effective utilization of core 
memory and disk storage. The larger the blocks, the fewer the physical I/O 
operations but the more core memory that is required. To limit the maximum 
FLEXSTAB execution core requirements to approximately 400K bytes, a block size 
of 2048 bytes was chosen for the delivered version. 

The GINO design also provides a random-sequential technique which permits 
selection and reading of any file on a multifile unit without reading or passing 
any other. This random-sequential design utilizes a logical file mark created 
and sensed only by GINO to replace the physical file mark normally created by 
the FORTRAN ENDFILE Statement. This arrangement combines groups of data con- 
sisting of many files into a single file containing the same data files separ- 
ated by GINO-specif ic logical file marks. These logical file marks are a 
unique data word whose position is recorded in a GINO file locator table. 

The capabilities and operation of GINO can best be illustrated with the 
following example: A data file is created through a series of calls to a GINO 

output entry point. GINO moves the variable length records to a fixed length 
block. As each block is filled, GINO writes it to disk. A particular record 
may fit within a block, or span one or more blocks. Thus a single call to 
GINO with one logical record may initiate none, one, or many disk writes. When 
the file is completed, a call is made to the GINO end-of-file entry point. 

This call stores a logical file mark in the current block, writes it to disk 
and records its position in the GINO file locator table. The position or disk 
address of this final block of the file is obtained through the BSAM NOTE macro. 
Only the disk address of this last block is recorded. The location of the 
logical file mark within the last block is detected only when the data are 


subsequently read. Using the preceding sequence other logical files can be 
written on this unit and additional entries made in the file locator table. 

With a multiple file unit thus created, data may be retrieved as follows: 
Using the file locator table, which contains the disk addresses of the last 
block of each logical file, the beginning of any file can be selected by 
pointing to a disk address one unit greater than the last block of the previous 
file. This selection is performed through the BSAM POINT macro. Once a par- 
ticular file is located, the logical records within it may be read through a 
series of calls to a GINO input entry point. Read logic reverses the write 
logic, reading blocks from disk as necessary and reconstructing the variable 
length records. If the logical file mark is sensed during a read, a logical ^ 
parameter in the calling sequence is set to true. This provides the capability 
to branch on end-of-file in the calling FORTRAN program. 

This GINO package is contained within the FLEXSTAB ALIB Partitioned Data 
Set. Table IV-1 lists the GINO routines, the coding language, the location by 
member name, and the entry points. Accordingly, FORTRAN I/O statements, in the 
bulk of the FLEXSTAB code, have been replaced with appropriate calls to GINO 
entry points. In selected instances, where a single-file unit is written wxth 
a collection of unrelated simple variables, FORTRAN I/O statements were not 
replaced. 

Although the primary motivation for the conversion of the IBM FLEXSTAB 
from FORTRAN l/O to GINO was to overcome the IBM OS/360 multi-file limitation, 
use of the GINO package substantially decreased program execution time. This 
decrease can be attributed to two factors: (1) an I/O package such as GINO 

with a narrowly defined purpose requires much less logic than the general pur- 
pose FORTRAN I/O package, and (2) the random-sequential file location technxque 
eliminates wasteful file search time. 


TABLE IV-1 



GINO Package 

Contents 


Subroutine or 
Control Section 
Name 

Language 

Used 

Member Name 
in ALIB PDS* 

Entry Point 
names 

GINO 

FORTRAN 

LOCATE 

WRITE 


READ 
REt^IND 
ENDFIL 
LOCATE 
FILES 0 
FILES I 
FLUSH 
SINGLE 

block ASSEMBLER RDBLK RDBLK 

TOTBLK 

NOTE 

POINT 

RDHDR 

IIRTHDR 

PUNT 

STRING ASSEMBLER READS WRITES 

READS 

NOTE; These member names are different from the subroutine/control 
section names. Each has been chosen to duplicate an entry 
point name, thereby facilitating use of the automatic call 
library mechanism within the Linkage Editor. 


APPENDIX V 


Data Plow in PLEXSTAB 


PLEXSTAB consists of 14 separately eicecuted programs . The only communi- 
cation between these programs is by groups of one or more files of unformatted 
information. The term named file is used to refer to such a group of files. 

These named files are called GDTAPE, AICTAP, SDSSTP, etc., which suggest the 
program creating them. In the example JCL given in Appendix II and in References 
1 and 2, named files are saved between program.s on tape, a fact also suggested 
by their names. Section 3 of Reference 2 (PLEXSTAB User's Manual) provides an 
overview of the PLEXSTAB programs and the nam.ed files with which they communi- 
cate. It should be studied before PLEXSTAB runs are made. 

The following data flow discussion, using the AIC program as an example, 
is representative of most PLEXSTAB programs. Pigure V-1 duplicates execution 
JCL appearing in Appendix II; each statement is numbered for reference. The 
job consists of two steps, the first ex'->.curiug the AIC program, the second 
copying output files from disk to tape. 

Step one (step name PLEXSTAB) extends from statement 3 to statement 28, 
executing the AIC load module located in PLEXSTAB. LOADMODL. LIBRARY, The data 
definition statements 4 through 27 define the data sets used during the step. 

The data sets for the AIC program (and most other PLEXSTAB programs) are of 
two types: those handled by PORTRAN l/O routines and those handled by GINO 
routines. (GINO is an I/O package used by PLEXSTAB for most unformatted I/O. 

See Appendix IV.) Statements 4-6 and 27 describe the data sets handled by 
PORTRAN I/O routines. Statement 6 describes the input data created in a prior 
run of the GD program. 

Statements 7 through 26 define the GINO data sets used by AIC, GINO data 
set references are by number, and just as for PORTRAN the number is reflected 
in the DDNAME for the data set, e.g., UT20 at statement 7. In a fashion 
parallel to PORTRAN, the group of logical files referred to by a GINO data set 
number is called a unit. In fact, the GINO units correspond in content with 
similarly numbered PORTRAN units in the CDC version of PLEXSTAB. Each GINO 
unit is a single physical file x<rith logical files delimited by a special GINO 
marker . 

All GINO data sets but those in statements 22 and 23 are scratch data 
sets. Statement 23 (DDNAME:UT35) defines a data set destined for use in 
subsequent programs. Statement 22 (DDNAME; 11035) defines a directory file for 

UT35 it provides the information necessary for random access to each 

logical file on UT35. Both data sets must be passed. 

Step two (stepname CPT) executes the PLEXSTAB COPY program, which simply 
copies data sets one— for— one from FORTRAN unit one to PORTRAN unit two until 
all data sets on unit one are copied. In this case statements 32 and 33 
define HD35 and UT35, passed from jobstep one, to be files one and two of 
unit one, with dummy statement 31 serving as a reference for the DCB parameter. 
Statements 35 and 36 define data sets one and two of the destination tape, 
using dummy statement 34 as a reference for DSN and VOLUME parameters. On 
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FIGURE V-1 
Execution JCL ^ AIG 
(From Appendix II) 


//RUNPAIC 

//JOBLIB 

//FLEXSTAB 

//FT06F001 

//FT50F001 

// 

//FT20F001 
//UT20 DO 
//UT21 DD 
//UT22 DD 
//UT23 DD 
//UT24 DD 
//UT25 DD 
//UT26 DD 
//UT27 OD 
//UT28 DD 
//UT29 DD 
//UT30 DD 
//UT31 DO 
//UT32 DD 
//UT33 DD 
//UT34 DD 
//H035 DD 
//UT35 DD 
//UT36 DO 
//UT37 DD 
//UT38 DD 
//FTOSFOOi 


JOB (ACCT»INFO) y ’NAME* »MSGLEVEL= (2,0) 

DD dsn=flexstab.loadmodl.libraRy»disp=shr 

EXEC PGM=AIC,REGI0N=386K 
do SYS0UT=A 

DD UNIT=SYSDA»SPACE=(TRK, (5,5) ,RLSE) , 
DCB=(RECFM=FB,LRECL=80,BLKSIZE=2480,BUFNO=1 ) 

DD DSNs^DIAPII»DISP=OLD,DCB=(BUFNO=1) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35) ) 

(100,35)) 

(100,35)) 

(100,35) ) 

. .>,x, (01 ,01 ) ) ,DISPs(NEW,PASS) 

UNIT=SYSDA,SPACE=(TRK, (500,50) ) ,DISP=(NEW,PASS) 
UNIT=SYSDA,SPACEs(TRK, (100,35) ) 
UNIT=SYSDA,SPACE=(TRK, (100,35) ) 
UNIT=SYSDA,SPACEs(TRK,.( 10 0,35) ) 

DD * 


UNIT=SYSDA,SPACE=(TRK 
UNIT=SYSDA,SPACE=(TRK 
UNITsSYSOA,SPACE=(TRK 
UNIT=SYSDA,SPACE=(TRK 
UNI T=SYSDA, SPACES (TRK 
UNIT=SYSDA,SPACE=(TRK 
UNITsSYSDA,SPACE=(TRK 
UNIT=SYSDA,SPACE=(TRK 
UNlTsSYSDA,SPACE=(TRK 
UNIT=SYSDA, SPACES (TRK 
UNITsSYSDA, SPACES (TRK 
UNiTsSYSDA, SPACES (TRK 
UNITsSYSDA, SPACES (TRK 
UNIT=SYSDA,SPACEs(TRK 
UNiTsSYSDA, SPACES (TRK 


//CPT EXEC PGMsCOPY,REGIONs50K 
//FT06F001 DD DUMMY 

//D DD UNiTsSYSDA, SPACE s(TRK, 1) ,DC0=(RECFMsU,BLKSI 2E=2O48) 
//FTOlFOOl DD DCBs*. d,DISP=(OLD, DELETE) ,DSNs».FLEXSTAB.HD35 
//FT 01 F 002 DD DCBst»,o,DISPs (OLD, DELETE) ,DSNs*.FlEXSTAB.UT 35 
//T DD UNITS (TP9,, DEFER) ,DISPs(, KEEP) ,D5N=gl£l®,V0LsSERs?????? 
//FT02F001 DO DSNs«,T,VOL=REF=».T,OCBs«.d,DISPs (NEW, KEEP) ,LABEL= 01 
//FT02F002 DD DSNs»^ T , VOL=REFs», T ,DCB='»oD,DlSP= (NEW , KEEP) ,LABELs02 



V-2 





completion of this step these data sets are direct images of HD35 and UT35. 
Note that both data sets on the tape have the data set name AICTAP, which is 
the named file output from AIC. 

This pattern of JCL is typical of that for each of the FLEXS'i’AB programs 
The most general form is: 

(1) Copy named file input created by a prior FLEXSTAB program from tape 
to scratch disk, using the COPY program. 

(2) Execute the FLEXSTAB program with all data residing on disk. 

(3) Copy named file data intended for a subsequent FLEXSTAB program 
from scratch disk to tape. 

Further information on data flow in FLEXSTAB can be found in Appendi:< B 
of Reference 2 (FLEXSTAB User’s Manual), especially Tables B.1-1 through 
B.1-22. These tables describe the contents of the named files involved with 
each program. However, the terminology is that of the CDC operating systems 
and requires some translation for IBM use. Table V-1 will assist with this 
translation. 

Table V-1 lists the units for each program that are both (1) handled by 
the GINO package and (2) involved in inter-program communication. Translate 
all FORTRAN file names from TAPEij (the standard CDC name for unit ij) to UTij 
if ij appears in Table V-1 for the program, or FTijFOOl if ij does not appear. 

Ignore all positioning requirements positioning is attained automatically 

on the IBM 360. 


TABLE V-1 

GINO Units and Named Files 


PROGEAM 

TABLE No. 
(Ref. 2) 

GINO UNITS 

NAMED FILE 

GD 

B.1-1 

None 

None 

AIC 

B.1-2 

35 

AICTAP(OUT) 



36 


ISIC 

B.1-3 

19,21,22,23,24 

SICTAP (OUT)* 



25 

EATAPE(OUT) 

NM 

B.1-4 

19,21,22,23,24, 

SICTAP (IN)* 



19,23,24 

SICTP3C0UT) 



13 

miTAPE 

ESIC 

B.1-5 

19,23,24 

SICTP3(0UT) 

SPSS 

B.1-6 

21 

AICTAP (IN) 



22,23,24 

SICTP3(IN) 



12,14 

SDSSTP (OUT) 

TH 

B.1-7 

1,4 

SDSSTP (IN)** 



2 

THTAPE(OUT) 

EAPLOT 

B..1-8 

3 

EATAPE(IN) 

NPPLOT 

B.1-9 

13 

NMTAPE(IN) 

PDPLOT 

B.1-10 

None 

None 

THPLOT 

B.1-11 

2 

THTaPE(IN) 

CAIC 

B.1-12 

1 

AICTAP (IN) 



2 

AICTAP (OUT) 

SLOADS 

B.1-13 

1 

EATAPE(IN) 



2,3 

SDSSTP (IN) 

ALOADS 

B . 1-14 

2,3 

SDSSTP (IN) 


*Named file SICTAP is the aggregate of SICTPl and SICTP2 data. SICTPl, 
SICTP2, and NMTAP2 are not used as named files for the IBM version of 
FLEXSTAB. Data corresponding to NMTAP2 is merged x\rith SICTP2 data 
from SICTAP by the NM job control language. 

This differs from the GDC version where all SDSSTP data for TH is on 
unit 4. 
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